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PREFACE 


The  growing  concern  over  the  possible  impacts  of  oil  spills  on  aquatic 
environments  has  led  to  the  development  of  a  large  number  of  computer  models 
for  simulating  the  transport  and  spreading  of  oil  slicks  in  surface  water 
bodies.  Almost  all  of  these  models  were  developed  for  coastal 
environments.  With  the  increase  in  inland  navigation  activities,  oil  slick 
simulation  models  for  rivers  and  lakes  are  needed. 

In  this  study,  two  computer  models  named  as  ROSS  and  LROSS  are 
developed  for  simulating  oil  slick  transport  in  rivers  and  lakes, 
respectivley .  The  study  was  originated  by  the  Detroit  District,  U.S.  Army 
Corps  of  Engineers  in  relation  to  the  Great  Lakes  limited  navigation  season 
extension  study.  The  oil  slick  transformation  processes  considered  in  these 
models  include  advection,  spreading,  evaporation  and  dissolution.  These 
models  can  be  used  -for  slickq  of  any  shape  originated  from  instantaneous  or 
continuous  spills  in  rivers  and  lakes  with  or  without  ice  covers.  Although 
developed  for  the  need  of  the  connecting  channels  in  the  upper  Great  Lakes, 
including  the  Detroit  River,  Lake  St.  Clair,  St.  Clair  River,  and  St.  Mary's 
River,  these  models  are  site  independent  and  can  be  used  to  other  rivers  and 
lakes . 

The  programs  are  written  in  FORTRAN  programming  language  to  be 
compatible  with  FORTRAN77  compiler.  In  addition,  a  user-friendly,  menu 
driven  program  with  graphics  capability  is  developed  for  the  IBM-PC  AT 
computer,  so  that  these  models  can  be  easily  used  to  assist  the  oil  spill 
cleanup  action  in  the  connecting  channels  should  a  spill  occur. 

This  report  series  is  organized  in  four  volumes,  to  provide  a  complete 
description  of  the  analytical  formulation  of  the  models,  the  logic  and 


structures  of  the  computer  programs,  and  the  instructions  for  using  the 
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CHAPTER  I 
INTRODUCTION 


The  computer  model  ROSS  for  simulating  the  spreading  of  an  oil  slick  in 
rivers  is  presented.  The  model  first  constructs  the  two-dimensional,  depth 
averaged  velocity  distribution  for  the  river  and  subsequently  simulates  an 
oil  spill  as  identified  by  user  supplied  input.  Analytical  formulations 
used  in  the  computer  model  for  describing  the  physical  processes  affecting 
the  oil  and  its  transport  are  presented  in  Volume  I.  The  flow  chart 
presented  in  Fig.  1  outlines  the  structure  of  the  computer  model.  Brief 
discussions  on  the  computer  logic  and  techniques  will  be  given  in  this 
chapter.  Detailed  discussions  on  the  implementation  of  the  analytical 
formulation  code  are  presented  in  later  chapters  along  with  input  and  output 
instructions.  The  model  described  in  this  manual  is  developed  for  the  Great 
Lakes  Connecting  Channels,  including  the  St.  Clair  River,  the  Detroit  River, 
and  the  St.  Mary's  River.  However,  the  model  is  programmed  in  a  genearl 
manner  such  that  it  can  be  utilized  on  other  rivers  as  well.  A  thorough 
description  of  the  model  input  and  output  is  given  to  aid  the  users  in  the 
adaptation  of  the  model  to  rivers  other  than  those  which  are  presented.  The 
program  is  also  designed  so  that  the  refinement  of  the  model  elements  and 
expansion  of  the  model  to  include  addition  of  physical  and  chemical 
processes  can  easily  be  made. 

I. 1  Model  Implementation 

Oil  Slick  Representation 

The  oil  slick  is  represented  by  a  user  specified  number  of  particles  up 
to  1000.  Each  particle  can  be  considered  as  a  parcel  of  oil  which 
represents  an  equal  fraction  of  the  entire  oil  slick  volume.  If,  for 
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example,  rhe  user  chooses  500  particles  for  a  50,000  barrel  spill,  each 
particle  would  represent  100  barrels  of  oil  (1  barrel  =  55  U.S.  gal.). 
Treatment  of  the  instantaneous  or  continuous  spill  cases  differ  only  in  the 
manner  in  which  the  particles  are  released  and  will  be  further  explained  in 
a  later  section.  Whether  a  given  spill  is  to  be  treated  as  instantaneous  or 
continuous  is  decided  automatically  by  the  model  based  on  spill  duration  and 
the  time  step  to  be  usea. 

Velocity  Distribution 

Analysis  of  the  transport  of  oil  spill  particles  in  a  river  requires  a 
well  defined  water  velocity  distribution.  The  water  velocity  is  eventually 
combined  with  the  wind  velocity  to  advect  the  oil  (as  will  be  discussed  in 
the  section  on  advection) .  To  calculate  these  water  velocities,  various 
information  of  the  river  need  to  be  considered.  These  include  the  total 
discharge,  '  river  stages,  cross  section  geometries,  river  shoreline 
characteristics,  ice  conditions,  and  the  existence  of  islands. 

Computing  the  two  dimensional  velocity  distribution  in  the  river  is 
done  in  two  stages.  First,  a  one  dimensional  unsteady  flow  model  is  used  to 
generate  discharge  and  river  stages  at  specified  cross  sections  referred  to 
as  nodes.  The  oil  spill  model  utilizes  this  generated  information  to 
compute  two-dimensional  velocity  distribution.  In  the  oil  spill  model, 
branches  are  used  to  describe  the  channel  configuration.  The  beginning  and 
ending  of  these  branches  are  selected  to  coincide  with  nodes  of  the 
one-dimensional  model  in  most  cases.  In  cases  where  it  is  necessary  to  have 
more  branches  in  the  oil  spill  model  than  in  unsteady  flow  model  the  water 
levels  at  intermediate  points  are  obtained  through  interpolation. 
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Figure  1 


Block  Diagram  of  Computer  Model  ROSS 


3 


Operate  this  loop  UFSTPS  times 

where  UFSTPS  =  Total  :ime  of  simulation/time  step  in  flow  model 


Figure  1.  Block  Diagram  of  Computer  Model  ROSS  j 
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Figures  2  through  6  show  one-dimensional  schematizations  for  the  connecting 
channels  of  the  Great  Lakes. 

In  the  event  an  island  is  encountered,  it  becomes  necessary  to  divide 
the  discharge  accordingly  (Fig.  2).  One  or  more  branches  extend  around  each 
side  of  the  island.  Each  of  these  branches  include  a  portion  of  the  total 
number  of  streamtubes  in  the  river.  No  new  streamtubes  are  added  (i.e.  the 
total  number  remains  the  same  but  is  split  bettween  the  upper  and  lower 
island  branches  according  to  the  ratio  of  flow  split).  After  the  magnitude 
of  velocities  and  their  center  point  locations  are  computed,  the  direction 
of  velocity  can  be  obtained  by  connecting  corresponding  streamtube 
boundaries  in  two  successive  cross  sections.  The  information  available  at 
this  stage  is  the  magnitude  and  direction  (or  alternatively  x  and  y 
components)  of  velocities  of  the  specified  streamtubes  at  the  cross 
sections. 


Fig.  2 


a)  b) 

Techniques  for  representing  a  river  when  islands  are 
present;  a)  nodes  b)  branches 
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Detroit  River 


St.  Clair  River 


Fig.  4  Branch  Configuration  for  St.  Clair  River 


Upper  St.  Mary's  River 


Branch  Configuration  for  Upper  St.  Mary's  River 


Lower  St.  Mary's  River 


Branch  Configuration  for  Lower  St.  Mary's  River 


The  assignment  of  velocities  through  the  entire  river  plan  area 
requires  the  establishment  of  a  grid  system,  as  shown  in  Fig.  7.  The 
depth-averaged  velocites  obtained  from  the  streamtube  analysis  are 
interpolated  to  all  the  grid  boxes.  The  river  boundaries  for  this  grid 
system  is  defined  by  boundary  grid  boxes. 

For  each  grid  in  the  x-direction,  two  corresponding  y  grids  for  boxes 
at  the  upper  and  lower  river  shorelines  are  used  to  define  the  location  of 
the  river  boundaries.  When  there  is  an  island,  two  more  y  grids  define  the 
upper  and  lower  boundaries  of  the  island  (see  section  on  input  output  for 
more  details).  The  model  can  handle  any  number  of  islands  in  the  river. 
However,  if  two  or  more  islands  intersected  a  vertical  line  along  which  the 
x  coordinate  is  constant,  only  one  can  be  handled  by  the  above  mentioned 
input  data.  Other  islands  can  be  artificially  handled  by  defining  zero 
velocities  for  the  island  area  (see  section  on  input  for  more  details) .  The 
disadvantage  in  this  case  is  that  oil  deposition  on  shorelines  may  not  be 
handled  accurately. 

Defining  islands  in  the  grid  system  is  independent  of  defining  islands 
for  branch  configuration.  This  allows  for  greater  flexibility  in  the 
simulation  of  oil  slick  transformation.  For  example,  a  small  island  that 
covers  about  3  or  A  grid  boxes,  which  may  be  too  small  to  be  defined  in  the 
branch  configuration,  can  be  easily  defined  in  the  grid  box  system.  The 
user  must  make  sure  that  if  an  island  is  defined  in  the  branch 
configuration,  the  area  is  appropriately  defined  in  the  grid  box  system  as 
well . 
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'12  zThTsYC  7  I  8  )  ?,jol  n\\ZM  ih  I/s'!  it*  \i\\8  ^zo'zi 
Fig.  7.  Grid  boxes  and  river  boundary  representation. 


The  velocity  within  each  box  is  assumed  to  be  constant.  Only  the  boxes 
found  within  the  defined  river  boundaries  are  assigned  velocites. 
Generally,  the  spacing  between  cross  sections  in  the  stream  tube  computation 
area  much  larger  than  the  grid  spacing  Ax.  The  following  procedure  is 
adopted  for  assigning  velocities  to  .grid  boxes  based  on  the  velocities 
computed  at  cross  sections.  The  description  that  follows  use  the  term 
"velocity  point"  to  represent  a  point  at  which  a  computed  velocity  is 
acting.  First,  all  velocity  points  computed  from  the  streamtube  analysis 
will  be  assigned  to  the  boxes  within  which  they  lie.  If  more  than  one 
velocity  point  fall  into  a  box,  the  average  of  the  velocities  is  assigned  to 
that  box.  In  the  next  step,  extra  velocity  points  will  be  obtained  by 
interpolating  between  two  successive  cross  sections.  The  number  of 
interpolation  points  between  two  successive  cross  sections  can  be  changed 
through  user  defined  input  data.  These  velocity  points  obtained  through 
interpolation  will  now  be  assigned  to  grid  boxes  by  using  the  same  method  as 
before.  In  the  last  stage  if  there  are  any  boxes  without  an  assigned 
velocity,  an  average  velocity  based  on  it's  neighboring  boxes  will  be 
assigned  to  them.  Upon  completion  of  these  steps,  the  entire  river  is 
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scanned  for  boxes  requiring  assignment  of  a  velocity,  and  a  velocity  is 
assigned  based  on  the  average  velocity  of  the  neighboring  boxes. 

Oil  Slick  Orientation 

The  oil  slick  can  be  expected  to  spread  either  axisymmetrically  or  in  a 
one  dimensional  manner.  Determination  of  which  type  of  spreading  prevails 
depends  upon  the  shape  of  the  slick  (i.e.  aspect  ratio).  Therefore,  after 
the  oil  particles  have  been  moved  to  a  new  position,  the  centroid  of  the  oil 
slick,  aspect  ratio  and  orientation  are  calculated,  but  only  from 
consideration  of  those  particles  which  have  not  hit  the  boundary. 

For  the  case  where  an  island  is  encountered,  particles  may  move  along 
either  side  of  the  island.  Since  the  model  only  handles  one  slick  at  a  time, 
the  particles  moving  along  the  top  of  the  island  are  shifted  to  the  bottom 
of  the  island  by  a  distance  equal  to  the  island  width.  A  single  slick  is 
now  used  for  the  determination  of  the  slick  orientation  and  aspect  ratio. 
The  shifted  particles  are  moved  back  after  the  spreading  phase  has  taken 
place  in  a  separate  subroutine. 

Boundary  Conditions 

As  discussed  in  Volume  I,  a  parameter  known  as  the  "half  life"  is  used 
to  describe  the  ability  of  the  shore  to  retain  any  oil.  Currently,  ten 
different  half  life  values  are  built  into  the  program.  These  values  are: 

CODE  # -  1  2345  6789  10 

Half  Life  (hrs)  —  0.033  0.5  1  6  12  18  24  48  48  8760 


For  the  ease  of  refering  to  a  particular  shoreline,  the  boundaries  are 
designated  according  to  Fig.  8. 
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Fig,  8.  Labeling  of  boundaries. 


1.2  The  Grid  System 

In  the  computer  simulation,  a  two-dimensional  reference  is  used  to 
discretize  the  river.  This  reference  is  required  to  identify  the  -  locations 
of  oil  patches  and  their  velocity.  The  finite-difference  grids  in  this 
model  must  be  squares  of  equal  size.  The  location  of  each  grid  square  is 
identified  by  their  x  and  y  indices.  Detailed  charts  describing  grid 
systems  for  all  of  the  four  connecting  channels,  with  a  grid  size  of  500  ft. 
x  500  ft.,  are  given  in  Appendix  II  along  with  x,y  indices.  The  user  may 
refer  to  these  charts  to  locate  coordinates  of  oil  spill  site  and  locations 
of  oil  patches. 
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CHAPTER  II 


THE  COMPUTER  MODEL 

The  computer  code  has  been  tested  on  both  F0RTG1  and  FORTRAN77 
compilers.  The  listing  given  in  this  manual  is  the  FORTRAN77  version.  To 
run  on  F0RTG1  the  user  needs  to  modify  several  statements  in  the  main 
program. 

All  variables  are  dimensioned  to  have  sufficient  storage  to  run  for  any 
of  the  four  rivers.  However,  the  number  of  particles  (NTOTAL)  is  a  user 
defined  input.  If  a  number  larger  than  1000  is  needed  for  NTOTAL,  the 
dimensions  of  PARTCL,  IMOVIN,  YSHIFT,  RADIUS  and  NTRACK  must  be 
appropriately  increased. 

II. 1  Subroutine  Cross  Reference 

A  cross  reference  to  the  subroutines  is  provided  to  show  the  connection* 
between  the  subroutines.  Also,  the  associated  input  files  are  given  where 
applicable. 


Program (Main/ Sub ) 


Calls 


Input  Files 


ROSS 

NDCONV,  PRINT,  VELDIS, 

PRELSE,  ADVECT,  ORIENT, 
SPRDAX,  SPRD1Y,  SPRD1X, 
EVAPOR,  DISOLU,  BOUND R, 

PLOTNU 

Geometry 

Spill  data 

Shore  conditions 
Ice  Regions 

ADVECT 

GAUSS,  RANDU* 

none 

BOUND R 

none 

none 

DISOLU 

none 

none 

EVAPOR 

none 

none 

NDCONV 

none 

flow  data 
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ORIENT 

none 

none 

PLOTNU 

none 

none 

PRELSE 

GAUSS,  RANDU* 

none 

PRINT 

none 

none 

S  P  RD  AX 

none 

none 

SPRD1X 

none 

none 

SPRD1Y 

none 

none 

VELD IS 

none 

none 

*RANDU  and  GAUSS  are  standard  subroutines  available  on  IBM  computers 
for  generating  uniform  and  gaussian  random  numbers  respectively. 

On  other  systems  they  must  be  replaced  by  their  equivalent. 


COMMON  BLOCKS 

Common  "VEL" 

/  Variable  /  Algebraic  /  Type  /  Definition  / 

Name  Name 


CORDLB(I) 

CORDV(I.J) 

KINTM 

LCSTSQ(I) 

NFIRCO(I) 


NSECO(I) 


COMPLEX 


lower  bank  coordinates  of  the  I 


th 


section 


COMPLEX  coordinates  at  which  VSTRM  is  acting 

INTEGER  number  of  interpolations  between  two 
velocity  points  of  two  consecutive  cross 
sections,  in  the  same  streamtube. 

INTEGER  last  cross  section  number  of  branch  I 


INTEGER  next  cross  section  connecting  to  cross 
section  in  question.  For  a  divided 
channel  around  island,  this  represents 
the  first  cross  section  connected  to  in 
the  lower  division  from  the  main  channel 
cross  section 


INTEGER  for  a  divided  channel  around  an  island, 
this  represents  the  first  cross  section 
connected  to  in  the  upper  division  from 
the  main  channel  cross  section  (if  no 
island  =  0,  if  lower  division  complete 
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and  returning  back  to  upper  division  = 
888,  if  both  divisions,  are  complete  and 
resuming  main  channel  =  999.) 


NSLSCT(I) 

INTEGER 

number  of  sounding  depths  used  to 

describe  the  channel  geometry 

NSTUBE(I) 

INTEGER 

total  number  of  stream  tubes  at  cross 
section  I. 

NUMCON(I) 

INTEGER 

Condition  number  of  Section  I.  If  all 
streamtubes  continue  to  next  cross 
section  undivided  =  11,  if  streamtubes 
divide  into  two  channels  from  main 
channel  =  12,  if  streamtubes  from  divided 
channel  connect  back  to  main  channel  =  21 

Q  (I) 

REAL 

discharge  in  the  1^  branch 

SCTANG(I) 

REAL 

angle  I1"*1  cross  section  makes  with  the 
positive  x-direction.  In  the  default 
version  this  angle  is  in  radians.  If  it 
is  needed  to  input  in  degrees,  activate 
the  comment  statements  in  \  he  DO  loop  in 
main  program. 

TICE(I.J) 

REAL 

equivalent  ice  thickness  of  sounding 

,  ,  •  i-th 

depth  in  I  cross  section 

VSTRM(I.J) 

COMPLEX 

stream  velocity  of  the  1^  cross  section 
and  streamtube 

WL(I) 

REAL 

water  level  at  upstream  end  of  branch  I 

YWID(I.J) 

REAL 

distance  along  the  cross  section  from  the 

reference  bank  to  the  sounding  depth 

,  _th 

m  the  I  cross  section 

Z(I.J) 

REAL 

J sounding  depth  for  the  It^1  cross 
section 

ZD  (I) 

REAL 

reference  datum  for  section  I  from  which 
the  sounding  depth  is  evaluated 
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Common  "VA" 


/  Variable  /  Algebraic  /  Type  / 
Name  Name 


Definition 


/ 


VCAR(I) 


VDRIFT 


COMPLEX  water  velocity  in  grid  box  I  of  the 
cartesian  system  (Note:  Two-D  grid  box 
system  is  converted  to  1-D  counting  for 
storing) 

COMPLEX  drift  velocity  of  oil 


VWIND 


COMPLEX  x  and  y  components  of  wind  velocity 


*3 

Common  "VASB1* 

/  Variable  /  Algebraic  /  Type  /  Definition  / 

Name  Name 


IGRILB(I) 

INTEGER 

y-direction  grid  box  number  of 
river  boundary  in  column  I  (water 
grid  box) 

lower 

side 

IGRIUB(I) 

INTEGER 

y-direction  grid  box  number  of 

upper 

river  boundary  in  column  I  (water 
grid  box) 

side 

IGRLB1 (I) 

INTEGER 

y-direction  grid  box  number  of 
island  boundary  in  column  I  (land 
grid  box) 

lower 

side 

IGRUB1 (I) 

INTEGER 

y-direction  grid  box  number  of 
island  boundary  in  column  I  (land 
grid  box) 

upper 

side 

Common  ”ASB" 

/  Variable  /  Algebraic  /  Type  /  Definition  / 

Name  Name 


IHITB(I) 

INTEGER 

particle  ID  number  or  index  of  the  I 
particle  to  hit  the  boundary 

NHITB 

INTEGER 

number  of  particles  which  have  hit  the 
boundary. 

NPTCL 

INTEGER 

number  of  particles  in  the  system 

17 


PARTCL(I) 

COMPLEX 

cartesian  coordinates  of  Itk 

oil  particle 

SPCEN 

COMPLEX 

cartesian  coordinates  of 
the  spill 

the  center  of 

TYPBND(I.J) 

REAL 

oil  rejection  rate  from  Itk 
grid  box 

shore  in  Jtk 

Common  "BLOCK7 " 

/  Variable  /  Algebraic 
Name  Name 

/  Type  / 

Definition 

/ 

AK2I 

k2i 

REAL 

Fay's  gravity-inertia  phase 

coefficient  (axisymmetrical) 

spreading 

AK2T 

k2t 

REAL 

Fay's  surface  tension-viscous  phase 

spreading  coefficient  (axisymmetrical) 

AK2V 

k2v 

REAL 

Fay's  gravity-viscous  phase 

coefficient  (axisymmetrical) 

spreading 

ANIU 

V 

w 

REAL 

kinematic  viscosity  of  water 

/sec. ) 

(sq.  ft.  • 

SIGMA 

o 

REAL 

surface  tension  of  oil  (lbs. 

/ft. ) 

SLICKR(I) 

REAL 

slick  radius  in  Itk  pie  segment 

SPGOIL 

REAL 

specific  gravity  of  oil 

VOLPAR 

REAL 

volume  of  one  oil  particle  (cu.  ft.) 

VOLPIE(I) 

REAL 

volume  of  oil  in  the  Itk  pie 
cu.  ft.) 

segment  ( 

Common  "BL0CK8” 

/  Variable  /  Algebraic  /  Type  /  Definition  / 

Name  Name 

AKC10  REAL  (Fay's  or  Waldman's)  gravity  -  inertia 

spreading  phase  coefficient 
(one-dimensional) 
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AKC20 

C20 

REAL 

gravity  -  viscous  phase  spreading 

coefficient  (one-dimensional) 

AKC30 

C30 

REAL 

surface  tension  -  viscous  phase  spreading 

coefficient  (one-dimensional) 

Common  "SO” 


'  Variable 
Name 

/  Algebraic 
Name 

/  Type  / 

Definition 

/ 

IMOVIN(I) 

INTEGER 

ID  no.  of  the  Ith  moving  particle 

NMOVIN 

INTEGER 

total  number  of  moving  particles 
system 

• 

in 

SSHIFT 

REAL 

sum  of  all  YSHIFT 

YSHIFT(I) 

REAL 

distance  I^*1  particle  is  shifted 

down 

from  the  upper  island  channel. 
(Applicable  only  when  the  spill  is  split 
by  an  island.) 


Common  "SE" 


Variable 

Name 

/  Algebraic 
Name 

/  Type 

/  Definition 

/ 

FEVP1 

REAL 

fraction  evaporated  at  the  end  of 
previous  time  step 

FEVP2 

F 

REAL 

fraction  evaporated  at  the  end  of 
time  step. 

present 

CEVP 

C 

REAL 

coefficient  C  (at  283°K)  required 
evaporation  characteristics 

for 

TO 

T 

n 

REAL 

boiling  point  temperature  of  oil 

(°K) 
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Common  "ICE" 


/  Variable  /  Albegraic  /  Type  /  Definition  / 

Name  Name 


NICERG 

INTEGER 

No.  of  ice  regions 

NICEX1 (I) 

INTEGER 

x-grid  box  of  the  starting  point  of  ice 
region  I 

NICEYl(I) 

INTEGER 

y-grid  box  of  the  starting  point  of  ice 
region  I 

NICEX2 (I) 

INTEGER 

x-grid  box  of  the  ending  point  of  ice 
region  I 

NICEY2 (I) 

INTEGER 

y-grid  box  of  the  ending  point  of  ice 
region  I 

IPOSl(I) 

INTEGER 

to  save  space  and  time  the  program 
internally  works  with  a  1-D  array  for 
storing  most  2-D  information,  such  as 
VELCAR(  ).  IPOSl(I)  contains  the  1-D 
array  location  corresponding  to 

NICEX1 (I) ,  NICEY1 (I) . 

IP0S2 (I) 

INTEGER 

same  as  above  (replace  1  by  2) 

AMIUC 

yo 

REAL 

viscosity  of  oil  (gms/cm-sec) 

ANICE 

n . 

1 

REAL 

Manning's  roughness  coefficient  for  ice 

SPAICE 

REAL 

2 

Spill  Area  under  ice  cover  (ft  ) 

II. 2  Main 

Program  And 

Subroutines 

ROSS 


The  main  program  ROSS  is  the  main  controlling  code  for  the  oil  spill 
model.  Through  ROSS  the  fixed  river  geometry  and  oil  spill  parameter  data 
are  read  into  the  program,  variables  are  initialized  and  initial  data 
manipulation  and  conversion  is  performed.  Next,  the  appropriate  subroutine 
calls  are" made  to  perform  the  required  oil  spill  analysis  and  produce  the 
final  results  as  detailed  in  the  Output  section  of  each  routine. 
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Input 

The  input  data  for  -  ROSS,  and  the  model  in  general,  is  found  in  four 
files.  The  file  format  is  xxxx.yyy.  The  first  four  characters  identify  the 
river  (e.g.  STCL,  DETR,  STMU,  STML) .  The  last  three  characters  are  (i)  GEO, 
(ii)  FLW,  (iii)  BND,  (iv)  SPL  and  (v)  ICE.  Setup  of  input  files  is  detailed 
in  Chapter  III. 

Output 

The  output  consists  of  printing  of  the  following, 

i.)  Messages  if  errors  are  encountered  during  some  checking  procedures, 

ii.)  Headers,  messages  identifying  spill  type,  spill  location  and 
spirl  duration. 

iii.)  Input  parameters  that  describe  spill  material, 

iv.)  Stage  and  discharge  conditions. 

v.)  Environmental  conditions  such  as  wind  velocity  and  air  temperature, 

vi.)  Locations  of  all  particles  (to  a  file)  if  this  option  is  selected. 

Common  Blocks  Referenced 

VEL,  VA.  VASB.  ASB,  BL0CK7,  BL0CK8,  SE,  V,  SO,  ICE 
Subroutines  Called 

PRINT,  VELDIS,  ADVECT,  ORIENT,  PRELSE,  SPRDAX, 

SPRD1X,  SPRD1Y,  BOUNDR,  PLOTNU,  NDCONV,  EVAPOR,  DISOLU 

Major  Variables  (not  included  in  common  blocks) 

/  Variable  /  Algebraic  /  Type  /  Definition  / 

Name  Name 


API 

REAL 

API  value  of  oil 

DIFFUD 

REAL 

horizontal  diffusion  coefficient  for  the 

2 

river  (ft  /s) 

DX 

Ax  REAL 

size  of  grid  box  (ft) 
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FUELTP 


CHARACTER  identification  of  fuel  type 


FULLTI 

HLIFE(I)  X 

HR 

ICINFO 
I  CODE 

IEVERY 

INDPRN 

INDX1D 


IOPT1 


I0PT2 


I0PT3 


REAL 

REAL 

REAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


INTEGER 


INTEGER 


INTEGER 


ice  thickness  of  fully  covered  cross 
section,  only  one  thickness  assigned 

halflife  of  oil  spill  retention  on 
boundary,  choice  of  cne  of  ten  possible 
values 


hydraulic  radius  of  IY  trapezoid  in 
cross  section 

number  of  cross  sections  with  ice  covers 

integer  identifying  which  of  the  ten 
halflife  values  to  be  assigned  to  a  grid 

frequency  of  obtaining  output  from  PLOTNU 
and  other  subroutines  (i.e.  value  of  two 
(2))  gives  output  every  other  time  step 

two  possible  values:  zero  (0)  results  in 
no  printout,  one  (1)  results  in  printout 

This  variable  can  have  values  ranging 
from  0  to  5  (see  also  subroutine  ORIENT). 
INDX1D  =  0:  axi-symmetrical  spreading 
INDX1D  =  1:  1-D  spreading  in  y-dir;  use 

SPRD1Y 

INDX1D  =  2:  2-D  spreading  in  x-dir;  use 
SPRD1X 

INDX1D  =  3, A,  or  5  indicate  that  the 

slick  is  very  short.  If  the  slick  is  on 
free  surface  INDX1D  will  be  set  to 
INDX1D-3.  If  more  than  half  the  slick  is 
under  ice  then  INDX1D  will  be  set  to 
zero.  After  resetting  INDX1D  the 
procedures  described  above  that 

correspond  to  0,  1  or  2  will  be  followed. 

two  possible  values:  one  (1)  results  in 
printout  of  fixed  data  like  cross  section 
geometry  and  shore  conditions,  zero  (0) 
results  in  no  printout 

two  possible  values:  one  (1)  results  in 
output  of  computed  velocities  to  be  used 
for  plotting,  zero  (0)  results  in  no 
output 

two  possible  values:  one  (1)  results  in 
output  of  particle  locations  to  be  used 
in  plotting,  zero  (0)  results  in  no 
output 


I0PT4 


I0PT4 

INTEGER 

two  possible  values:  one  (1)  results  in 
number  plot  of  particle  distribution  (see 
PLOTNU),  zero(O)  results  in  no  printout 

IPARTX(I) 

INTEGER 

dummy  variable  used  to  transfer  particle 
coordinates  in  integer  format 

IPARTY(I) 

INTEGER 

dummy  variable  used  to  transfer  particle 
coordinates  in  integer  format 

IS 

INTEGER 

cross  section  number  referencing  ICINFO 

ISPTYP 

INTEGER 

Spill  Type;  0  -  Instantaneous,  1 

Continuous.  Computed  by  the  model  based 
on:  if  SPLTIM  0.5  *  SPILDT,  ISPTYP  =  1, 
ELSE  =  0. 

IX 

INTEGER 

odd  random  number  seed  for  random  number 
generator 

KINTM 

INTEGER 

no.  of  interpolations  between  two  cross 
sections 

LFROM 

INTEGER 

beginning  limit  (grid  box  number)  for 
halflife  designation  to  shore 

LTO 

INTEGER 

ending  limit  (grid  box  number)  for 

halflife  designation  to  shore 

NBRNCH 

INTEGER 

number  of  branches  used  in  oil  spill 
model 

NBRP1 

INTEGER 

NBRNCH  plus  one 

NGRIDX 

INTEGER 

total  number  of  grid  boxes  in  the 

x-direction 

NTOTAL 

INTEGER 

total  no.  of  paticles  to  be  used 

NTSTEP 

INTEGER 

total  number  of  time  steps  for  this  run 

OSTPS 

INTEGER 

No.  of  oilspill  steps  per  UFDT 

PERI 

REAL 

wetted  perimeter  of  IY^  trapezoid  in  the 
cross  section 

REJRAT 

REAL 

oil  rejection  rate  from  boundary  as 

calculated  from  HLIFE  and  SPILDT  data 

SOLBLT 

REAL 

3 

solubility  of  oil  (g/m  ) 

SOLUNI 


REAL 


3 

solubility  of  oil  (lbs/ft  ) 


SPAREA 

REAL 

spill  area  (ft  ) 

SPCENO 

COMPLEX 

location  of  spill 

SPILDT 

REAL 

magnitude  of  time  step  for  spill 

simulation  (seconds) 

SPLRAT 

REAL 

3 

rate  of  spilling  (ft  /s) 

SPVOL 

REAL 

total  volume  of  oil  spill  (U.S.  gallons) 

TENVF 

REAL 

air  temperature  (°F) 

THETA 

REAL 

wind  direction,  angle  measured  clockwise 
from  north  in  degrees 

THETAO ( I ) 

REAL 

the  clockwise  angle  the  y-axis  makes  with 
north  in  degrees  for  the  four  respective 
rivers  (ex.,  THETAO (1)  =  109.0) 

TIMET 

REAL 

elapsed  time  of  simulation  (sec.) 

TOTDIS 

REAL 

Total  amount  of  dissolved  oil  (grams) 

TOTIME 

REAL 

total  time  of  oil  spill  simulation 

(sec.) 

TTTT 

REAL 

elapsed  time  of  simulation  (hr.) 

UFDT 

REAL 

1-D  model  time  step  (hrs.) 

UFSTPS 

INTEGER 

No.  of  1-D  model  steps 

VMOL 

REAL 

3 

molar  volume  of  oil  (m  /mol.) 

VMUNI 

REAL 

3 

molar  volume  of  oil  (ft  /mol.) 

VWMAG 

REAL 

wind  speed  (ft/sec) 

VWX 

REAL 

x-component  of  wind  velocity  (ft.  /sec.) 

VWY 

REAL 

y-component  of  wind  velocity  (ft.  /sec.) 

WNDSPD 

REAL 

wind  speed  (m/sec) 

WORD 


CHARACTER  cross  section  ice  cover  condition,  "FULL" 
=  fully  covered,  "PART"  =  partially 
covered,  "OPEN"  =  open  water 


SUBROUTINE  ADVECT 


The  subroutine  ADVECT  will  utilize  the  wind  and  water  velocities  to 
calculate  new  positions  of  the  oil  spill  particles.  Two  subroutine  calls 
are  made  for  earh  particle:  one  to  RANDU  to  generate  a  uniformly  distributed 
random  number  and  one  to  GAUSS  to  generate  a  normally  distributed  (gaussian) 
random  number.  This  information  is  used  to  calculate  the  turbulent 
fluctuation  component  of  the  water  velocity. 

Input 

Data  transferred  into  ADVECT  from  ROSS  includes  the  spill  simulation 
time  step  (SPILDT) ,  grid  box  size  (DX) ,  particle  ID  no.  from  (Nl)  particle 
ID  no.  to  (N2)  to  be  considered  for  moving  and  random  number  generator  seed 
(IX) 

Information  utilized  by  ADVECT  includes: 

1. )  Locations  of  all  particles. 

2. )  Wind  and  water  velocities. 

3. )  Boundary  information. 

4. )  Information  on  ice  regions 

Output 

The  new  particle  locations  and  the  new  number  of  particles  which  have 
hit  the  boundary  (if  any)  are  generated. 

Procedure 

1. )  Check  for  particles  which  have  hit  the  boundary  (since  only 

particles  which  have  not  hit  the  boundary  will  be  advected.) 

2. )  Find  the  grid  box  where  a  particle  is  located. 

3. )  Determine  whether  the  particle  is  under  ice  or  not. 

4. )  Calculate  the  drift  velocity  for  that  grid  box. 

5. )  Calculate  the  random  velocity  component  and  add  to  the  drift 

velocity. 
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6.)  Calculate  the  new  position  of  the  particle. 

6. )  Repeat  2-6  for  each  particle. 

7. )  Count  the  number  of  particles  hitting  the  boundary  after  advection. 


and  store  their  ID  no’s. 
Common  Blocks  Referenced 
VA.  VASB,  ASB 
Subroutines  Called 

GAUSS.  RANDU 


Internal  Variables 

/  Variable  /  Algebraic  /  Type  /  Definition  / 


Name 

Name 

ANG 

REAL 

angle  of  random  component  from  the 
positive  x-direction 

DELEQ 

6eq 

.  REAL 

equilibrium  thickness  required  for  ice 

covered  case  (ft) 

DIFFUD 

et 

REAL 

2 

horizontal  diffusion  coefficeint  (ft  /s) 

FRAMFA 

k 

REAL 

friction  amplification  factor  denoted  by 
'k'  in  text 

IPOS 

INTEGER 

grid  location  in  1-D  array  VCAR 

IX 

INTEGER 

random  number  generator  seed 

NPTCL 

INTEGER 

number  of  particles  now  in  the  system 
(Moving  +  Hit)  NOTE:  In  the  case  of  a 
continuous  spill  the  no.  of  particles 
increase  every  time  step  for  some  period. 

UFAIL 

ufl 

REAL 

failure  velocity  under  rough  ice  cover 

(ft/sec) 

UWATER 

REAL 

speed  of  water  current  (ft/s) 

UTH 

C 

ft 

zr 

REAL 

threshold  current  speed  for  slick 

movement  (ft/sec) 

VRAND 

REAL 

after  return  from  GAUSS, VRAND  =  magnitude 
of  random  velocity  component 
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vx 

REAL 

x-component 

of 

VRAND 

VY 

REAL 

y-component 

of 

VRAND 

SUBROUTINE  BOUNDR 

The  subroutine  BOUNDR  handles  the  adsorption  and  rejection  of  oil  at 
the  river  shorelines.  This  subroutine  determines  how  many  particles  can 
remain  on  the  appropriate  land  grid  of  a  shoreline. 

Input 

Data  transferred  into  BOUNDR  from  ROSS  includes  the  grid  box  size  (DX), 
the  number  of  grid  boxes  in  the  x-direction  (NGRIDX)  and  the  printout 
indicator:  (INDPRN) . 

Information  utilized  by  BOUNDR  includes: 

1. )  Current  particle  locations  including  indices  of  particles  which 

have  hit  the  boundary. 

2. )  Boundary  information. 

Output 

The  output  includes 

1. )  The  locations  of  oil  spill  particles  on  the  boundary. 

2. )  Recomputed  oil  volumes  in  boundary  grid  boxes. 

3. )  Relocation  of  rejected  particles. 

Procedure 

1. )  If  a  particle  is  below  boundary  one  (1),  move  particle  to 

appropriate  boundary  land  grid. 

2. )  If  a  particle  is  above  boundary  two  (2),  move  particle  to 

appropriate  boundary  land  grid. 

3. )  If  neither  1.)  or  2.)  occurs,  since  these  checks  are.  performed  only 

for  hit  particles,  the  particle  is  trapped  between  boundary  three 
(3)  and  four  (4).  Therefore,  assign  particle  to  nearest  island 
boundary. 

4. )  Repeat  1-3  for  all  particles  which  have  hit  the  boundary. 
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5. )  Check  the  boundary  grid  rejection  rate  and  re-entrain  the  excess 

particles. 

a. )  First  m  particles  of  total  m+n  particles  hitting  the  shore  are 

retained  and  next  n  are  pushed  back  out. 

b. )  If  pushed  out,  particle  is  assigned  to  centroid  of  adjacent 

water  grid. 

6. )  If  particle  is  removed  from  shore,  NHITB  is  reduced  and  remaining 

particle  indices  in  array  IMOVIN  are  shifted  up  to  make  up  for  the 
empty  spot  in  the  array. 

7. )  Repeat  5-6  for  all  x  grid  numbers  checking  each  shore  as  required. 

8. )  Write  output.  (If  NHITB  4  0) 

Common  Blocks  Referenced 


VASB,  ASB 
Subroutines  Called 
none 

Internal  Variables 


'  Variable  /  Algebraic 
Name  Name 

/  Type  / 

Definition 

/ 

IALOWD 

INTEGER 

number  of 

particles  allowed  in  a 

grid  box 

IDUM1 

INTEGER 

temporary 

storage 

IDUM2 

INTEGER 

temporary 

storage 

J 

INTEGER 

temporary 

storage 

K 

INTEGER 

temporary 

storage 

K1 

INTEGER 

temporary 

storage 

K2 

INTEGER 

temporary 

storage 

L 

INTEGER 

temporary 

storage 

M 

INTEGER 

temporary 

storage 

NBNDR 

INTEGER 

boundary  number (shore  number) 

NPTBND(K.I) 

INTEGER 

number  of 

particles  in  boundary  K 

of 

x-grid  I. 
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XI 

REAL 

temporary  storage 

xco 

REAL 

x-coordinate  of  the  center  of  water  grid 
adjoining  first  land  boundary  grid 

XXX 

REAL 

used  for  checking  location  of  particle  in 
island 

Y1 

REAL 

temporary  storage 

Y2 

REAL 

temporary  storage 

Y3 

REAL 

temporary  storage 

YCO 

REAL 

y-coordinate  of  the  center  of  water  grid 
adjoining  first  land  boundary  grid 

SUBROUTINE  DISOLU 

The  subroutine  DISOLU  computes  the  ano  it  of  oil  dissolved  in  water. 
The  solubility  of  oil  is  so  low  that  it  has  very  little  affect  on  the 
trajectory  (spreading),  but  it  is  important  for  environmental  impact 
assessment.  The  working  units  in  this  subroutine  are  metric  to  make  the 
cross  reference  with  original  theory  easier. 

Input 

Data  transferred  to  DISOLU  from  ROSS  include  spill  area  exposed  to  air 

2  2 
(SPAREA, ft  ),  spill  area  under  ice  (SPAICE,  ft  ),  solubility  of  fresh  oil 

3 

(SOLBLT, gram/m  ),  time  elapsed  (TIMET, secs) ,  Spill  simulation  time  step 
(SPILDT, secs) . 

On  Return 

On  return  to  main  program  it  provides 

1. )  Amount  dissolved  during  this  time  step  (grams) 

2. )  Total  amount  dissolved  (grams) 

Grams  are  converted  to  lbs.  in  the  main  program. 

Procedure 

iheory  by  Cohen,  Mackay  and  Shiu  (1980)  is  used  here.  The  subroutine 
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is  self  explanatory. 
Common  Blocks  Referenced 


ICE 

Subroutines  Called 
None 

Internal  Variables 
/  Variable  /  Algebraic  /  Type  / 


Name  Name 


ARBAR  REAL 

DELDIS  REAL 

DISOLK  REAL 

SPAR2  REAL 

SPAR1  REAL 

TOTDIS  REAL 


Definition  / 

Mean  area  of  slick  during  the  time  step 
(m2),  ARBAR  =  (SPAR1  +  SPAR2)/2 

Amount  of  oil  dissolved  during  the  time 
step  (grams) 

Dissolution  mass  transfer  coefficient, 
currently  set  at  1  cm/hr 

total  slick  area  at  the  end  of  present 
*  2 

time  step  (in  m  )  SPAR2  =  (SPAREA  + 
SPAICE) /10.76 

Total  slick  area  at  the  end  of  previous 

,  2, 

time  step  (m  ) 

Total  amount  of  dissolved  oil  (grams) 
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SUBROUTINE  EVAPOR 


In  this  subroutine  metric  units  are  used.  The  reason  for  using  units 
different  from  other  subroutines  is  to  make  cross  reference  with  theory 
(Mackay,  et  al.  1980)  easier. 

Input 

Data  transferred  into  EVAPOR  from  ROSS  include  API  index  of  oil.  (API), 

Environmental  temp  (TENV,°K),  Windspeed  (WNDSPD,m/s) ,  molar  volume  of  oil 

3  3 

(VMOL.m  /mol).  Initial  volume  of  spill  (VZERO.m  ),  Spill  area  exposed  to  air 

2 

(SPAREA.ft  ),  Spill  simulation  time  step  (SPILDT)  and  step  no.  (JSTE?) . 

On  Return 

On  return  to  main  program  it  provides 
1.)  Fraction  of  oil  evaoporated 
Procedure 

Theory  by  Mackay,  Patterson  and  Nadeau  is  used  here.  The  subroutine  is 
•self-explanatory. 

Common  Blocks  Referenced 
BL0CK7 ,  SE 
Subroutines  Called 
None 

Internal  Variables 


Variable 

Name 

/  Algebraic 
Name 

/  Type  / 

Definition 

/ 

AKM 

K 

m 

REAL 

Mass  Transfer  coefficient  (m/s) 

C 

c 

REAL 

Coefficient  C  at  TENV 

FEVP2 

REAL 

Fraction  evaporated  at 

pres,  it  time 

JSTEP 

INTEGER 

Current  Time  Step 

PO 

P 

n 

REAL 

Vapor  Pressure  at  TENV 

(atm) 

o 
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RGAS 

R 

REAL 

Gas  Constant 

e.g.,  8.3147  Joules/deg  mole 

TENV 

te 

REAL 

Air  temperature  (°K) 

WNDSPD 

^wind 

REAL 

Wind  Speed  (m/s) 

SUBROUTINE  NDCONV 

This  subroutine  is  necessary  only  if  branch  configuration  in  the  oil 

* 

spill  model  does  not  match  exactly  with  1-D  flow  model  .  Currently  the  four 
rivers  built  into  the  model  are:  (i)  St.  Clair  (IRCODE  =  1);  (ii)  Detroit 
(IRCODE  =  2);  and  (iii)  lower  St.  Mary's  (IRCODE  =  3)  and  (iv)  upper  St. 
Mary's  (IRCODE  =  4).  The  branch  configurations  in  oil  spill  model  were 
slightly  changed  from  those  in  the  1-D  model  to  improve  the  computations  of 
velocity  distribution.  In  the  case  of  upper  St.  Mary’s  River  the  branch 
configuration  in  1-D  flow  model  matches  exactly  with  that  in  the  oil  spill 
model.  Nevertheless,  upper  St.  Mary's  River  is  included  in  this  subroutine 
for  the  convenience  of  the  user.  This  subroutine  also  performs  the  function 
of  reading  in  the  water  level  and  discharge  data. 

Input 

Information  utilized  by  NDCONV  includes 

1. )  Water  levels  and  discharge  read  as  data 

2. )  River  code  (IRCODE) 

On  Return 

On  return,  water  levels  and  discharges  at  upstream  and  downstream  ends 
of  the  branches  in  oil  spill  model  are  passed  to  the  main  program. 


*If  the  branch  configuration  of  oil  spill  model  and  unsteady  flow  model  are 
indent ical  this  program  is  not  needed.  See  the  section  on  DETR.FLW  in 
Chapter  III  for  more  details. 
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Procedure 


Conversion  scheme  is  built  into  the  subroutine  through  data  in  arrays 
RIV1,  RIV2,  RIV3  and  RIV4.  Depending  on  the  value  of  river  code  the 
discharges  and  water  levels  will  be  assigned  to  match  with  the  branch 
configuration  of  the  river  used. 

Common  Blocks  References 
VEL,  VA 

Subroutines  Called 
None 


Internal  Variables 


/  Variable  /  Algebraic  /  Type  /  Definition 

Name  Name 


/ 


DWL 

REAL 

Temporary  storage  of  water  levels  read  in 
as  data 

DQ 

REAL 

Temporary  storage  of  discharge . read  in  as 
data 

NPTS(I) 

INTEGER 

No.  of  data  to  read  for  river  I 

RIV1 , RIV2 , RIV3 , RIV4 

REAL 

Transformation  data  for  St.  Clair, 

Detroit,  upper  St.  Mary's  and  lower  St. 

Mary's  Rivers,  respectively. 

Ex.  RIV2(2)  =  14  which  means  in  Detroit 
River  the  14th  node  from  1-D  model 
corresponds  to  2nd  node  of  Oilspill 
Model. 


SUBROUTINE  ORIENT 

The  subroutine  ORIENT  calculates  the  oil  slick  orientation  and  aspect 
ratio.  These  values  are  then  used  to  determine  if  axisymmetrical  or 
one-dimensional  spreading  will  be  used. 

Input 

Data  transferred  into  ORIENT  from  ROSS  includes  the  grid  box  size 

(DX). 
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Information  utilized  by  ORIENT  includes: 

1.)  Current  particle  locations. 


2.)  Boundary  information. 


On  Return 


On  return  to  main  program  it  provides 

1. )  Oil  slick  orientation,  aspect  ratio  and  whether  the  slick  is 

short,  i.e.,  average  radius  DX/2 

2. )  Oil  spill  centroid. 

3. )  Locations  of  shifted  particles  from  the  upper  side  of  island  (if 

the  slick  is  split  by  an  island)  and  the  distance  that  each 
particle  has  been  shifted. 

Procedure 


1. )  Find  the  particle  ID  numbers  (indices)  of  those  particles  which 

have  not  hit  the  boundary.  Assign  these  numbers  to  the  array 
IMOVIN(I).  [This  information  is  used  repeatedly,  hence,  this 
storing  saves  execution  time.] 

2. )  Compute  the  spill  centroid. 

3. )  If  an  island  is  encountered: 

a. )  Shift  particles  in  upper  channel  to  lower  channel  by  a  distance 

equal  to  the  island  width  at  x-coordinate  of  the  particle  while 
keeping  track  of  the  amount  of  shift  and  which  particles  were 
shifted. 

b. )  Recompute  the  spill  centroid  if  particles  were  shifted. 


A.)  Calculate  the  angle  of  the  slick  between  the  principal  axis  of  the 
slick  and  the  river  cartesian  x-axis. 

5. )  Transform  coordinates  to  have  positions  relative  to  the  principal 

axis  and  compute  aspect  ratio. 

6. )  Using  slick  orientation  (0)  and  aspect  ratio  (a.r.)  assign  a  value 

between  0  and  5  to  INDX1D 

INDX1D  =0  :  a.r.  £  3 

INDX1D  =  1  :  a.r.  >3,  0°  <_  Q  <  45° 

a.r.  >  3,  45°<  0  <  90° 


INDX1D  =  2 


INDX1D  =3  :  a.r.  <  3,  ...  short  slick 

INDX1D  =  4  :  a.r.  >  3.  0°  £  6  £  45°,  ...  short  slick 

INDX1D  =  5  :  a.r.  >  3.  45°  <  6  <_  90°.  ...  short  slick 

Short  slick  is  a  slick  having  an  average  radius  less  than  DX/2. 

Common  Blocks  Referenced 
SO,  ASB,  VASB 
Subroutines  Called 
none 

Internal  Variables 


Variable 

Name 

/  Algebraic 
Name 

/  Type  / 

Definition  / 

ASPECT 

REAL 

aspect  ratio  =  SALONG/ SNORMAL 

BOT 

REAL 

temorary  storage 

COUNT 

REAL 

counter 

CTHETA 

REAL 

cosine  of  the  angle  THETA 

DEG 

REAL 

THETA  in  degrees 

J 

INTEGER 

index  for  moving  particles  in  IMOVIN(I) 

L 

INTEGER 

temporary  storage 

M 

INTEGER 

temporary  storage 

SALONG 

REAL 

sum  of  particle  distances  from  one  of  the 
transformed  axis,  as  you  move  along  the 
other  axis 

SNORML 

REAL 

sum  of  particle  distances  from  the  axis 
opposite  to  the  one  used  to  calculate 
SALONG 

SPX 

REAL 

temporary  storage 

SPY 

REAL 

temporary  storage 

STHETA 

REAL 

sine  of  the  angle  THETA 

SUMIX 

I 

REAL 

sum  of  (XX) ^ 

y 
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SUMIXY  P 

xy 

REAL 

sum  of  (XX)  x  (YY) 

SUMIY  I 

X 

REAL 

sum  of  (YY)2 

THETA 

REAL 

angle  from  cartesian  x-axis  to  major 
spill  axis 

TOP 

REAL 

temporary  storage 

XX 

REAL 

x-distance  from  spill  centroid  to  the 
particle 

YY 

REAL 

y-distance  from  spill  centroid  to  the 
particle 

SUBROUTINE  PLOTNU 

The  subroutine. 

PLOTNU, 

generates  a  numerical  description  of  oil 

concentrations.  This  is  accomplished  by  printing  an  area  of  size  twenty 

columns  of  grids  by 

twenty  rows 

of  grids.  The  printing  area  is  centered 

over  the  oil  spill  centroid.  If  the  grid  box  is  included  in  or  between  the 
river  boundaries,  it  will  contain  the  number  of  oil  particles  currently 
contained  there.  If  the  grid  box  is  not  part  of  the  river  i.e.  land,  the 
grid  box  will  be  printed  out  containing  "***".  Since  each  column  is 
formatted  to  be  three  characters  wide,  the  maximum  number  of  particles  that 
will  be  printed  out  as  a  number  for  any  given  grid  box  is  999.  If  this 
number  is  exceeded,  *****  will  be  printed  for  that  grid  box. 

Input 

Data  transferred  into  PLOTNU  from  ROSS  includes  the  grid  box  size 

(DX). 

Information  read  into  ROSS  and  utilized  by  PLOTNU  includes: 

1. )  Current  particle  locations,  spill  centroid. 

2. )  River  shore  and  island  shore  boundary  information. 

Output 

Oil  concentrations  written  as  numbers  of  particles  in  a  twenty  by 
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twenty  block  of  grid  boxes  centered  over  the  current  spill  centroid.  A 
sample  output  is  given  in  Chapter  III. 


Procedure 


1. )  Assign  all  KOUNT  a  four  digit  number  i.e.  1001  (note:  format  to 

write  KOUNT  is  13  so  a  four  digit  integer  written  in  this  format 
will  appear  as  '***'. 

2. )  Find  maximum  and  minimum  x  and  y  grid  boxes  (10  boxes  away  from 

spill  centroid)  and  corresponding  coordinates  of  the  boxes 
centroid . 

3. )  Assign  grid  boxes  (or  KOUNT)  which  are  contained  within  the  river 

boundaries  a  concentration  of  zero  (0)  oil  particles. 

4. )  Count  how  many  oil  particles  in  the  grid  boxes  are  contained  within 

the  grid  box  boundaries. 

5. )  Write  the  twenty  by  twenty  block  with  the  oil  concentrations  and 

the  x  and  y  ranges  for  the  block. 

Common  Blocks  Referenced 


VASB,  ASB,  SO 
Subroutines  Called  * 


none 

Internal  Variables 

/  Variable  /  Algebraic  /  Type  /  Definition  / 

Name  Name 


IMAX 

INTEGER 

IMIN  +  19 

IMIN 

INTEGER 

x-grid  box  number 
centroid . 

9  grids  back  from  spill 

JMAX 

INTEGER 

JMIN  +  19 

JMIN 

INTEGER 

y-grid  box  number 
spill  centroid. 

9  grids  down  from 

KOUNT (l.J) 

INTEGER 

stores  the  number 
box 

of  particles  in  grid 

L.M 

INTEGER 

temporary  storage 

Ml 

INTEGER 

lower  grid  box  number  describing  river 
boundary 
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M2 

INTEGER 

upper  grid  box  number  describing  river 
boundary 

SPCEN1 

COMPLEX 

centroid  of  all  moving  particles  computed 
based  on  their  actual  locations 

XMIN 

REAL 

x-coordinate  for  centroid  of  leftmost 
grid  boxes 

XMAX 

REAL 

x-coordinate  for  centroid  of  rightmost 
grid  boxes 

YMIN 

REAL 

y-coordinate  for  centroid  of  upper  grid 
boxes 

YMAX 

REAL 

y-coordinate  for  centroid  of  lower  grid 
boxes 

XMIN1 

REAL 

minimum  x-grid  box  number  in  twenty  by 
twenty  block  centered  over  the  spill 

YMIN1 

REAL 

minimum  y-grid  box  number  in  twenty  by 
twenty  block  centered  over  the  spill 

SUBROUTINE  PRELSE 

The  subroutine  PRELSE  is  used  to  release  particles  in  continuous  spills 
at  equal  time  intervals  during  the  leak.  For  example,  when  a  30-minute 
spill  is  represented  by  a  total  of  600  particles,  this  subroutine  will 
release  a  particle  every  3  secs.  Note  that  if  SPILDT  is  15  mins.,  it  takes 
two  time  steps  to  release  all  the  particles,  with  300  particles  released  in 
each  time  step.  Particles  1  to  300  have  no  effect  from  this  subroutine 
during  the  second  time  step. 

Input 

Data  transferred  to  PRELSE  from  ROSS  includes  grid  box  size  (DX) ,  spill 
simulation  time  step  (SPILDT)  random  number  generator  seed  (IX),  particle  ID 
no.  from  (Nl) ,  particle  ID  no.  to  (N2)  to  be  considered  fo.r  moving  and 
initial  spill  site  (SPCENO) 

Information  utilized  by  PRELSE  includes 
1.)  Wind  and  water  velocities 
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2. )  Boundary  information 

3. )  Information  on  ice  regions 


On  Return 

On  return  to  the  main  program  this  subroutine  provides  the  locations  of 
released  particles  at  the  end  of  the  time  step  and  the  number  of  particles 
that  have  hit  the  boundary  (if  any) . 


Procedure 

1. )  Find  the  grid  box  where  the  spill  site  is  located. 

2. )  Determine  whether  that  location  is  under  ice  or  not. 

3. )  Calculate  the  drift  velocity  for  that  box. 

4.  )  Calculate  the  random  velocity  component  and  add  that  to  the  drift 

velocity. 

5. )  Release  a  particle  and  move  to  it's  location  at  the  end  of  the 

time  step. 

6. )  Advance  time  by  (SPILDT)/ (N2-N1+1) . 

7. )  Repeat  steps  4  to  6  for  all  particles  from  N1  to  N2  (both 

inclusive) . 

8. )  Count  the  number  of  particles  hitting  the  boundary  at  the  end  of 

the  time  step,  and  store  their  ID  no's. 


Internal  Variables 

/  Variable  /  Algebraic  /  Type  /  Definition  / 

Name  Name 


ANG 

REAL 

angle  of  random  component  from  the 

positive  x-direction 

DELEQ 

<$ 

eq 

REAL 

equilibrium  thickness  required  for  ice 
covered  case  (ft) 

DIFFUD 

E 

T 

REAL 

horizontal  diffusion  coefficient  for 

2 

river  (ft  /s) 

DTPTCL 

REAL 

time  the  particle  has  to  travel  from 
release  time  to  the  end  of  the  current 
oil  spill  model  time  step 

t  a 


DTSMAL 

fit 

REAL 

the  smaller  time  step  for  advection 

computed  based  on  stability  criteria 

FDELTA 

Ffi 

REAL 

eq.  (26).  Vol.  I 

FRAMFA 

k 

REAL 

friction  amplification  factor  denoted  by 
'k'  in  text 

IPASS 

INTEGER 

this  is  a  counter  to  keep  track  of  the 
loops  within  SPILDT 

IX 

INTEGER 

random  number  generator  seed 

ROUGH 

REAL 

roughness  height  of  ice  (ft) 

UFAIL 

Ufl 

REAL 

failure  velocity  under  rough  ice  cover 

(ft/ sec) 

UTH 

Uth 

REAL 

threshold  current  speed  for  slick 

movement  (ft/sec) 

UWATER 

REAL 

water  current  speed  (ft/s) 

VRAND 

REAL 

■after  return  from  GAUSS, VRAND  =  magnitude 
of  random  velocity  component 

VX 

REAL 

x-component  of  VRAND 

VY 

REAL 

y-component  of  VRAND 

SUBROUTINE  PRINT 

The  subroutine,  PRINT,  writes  all  fixed  data  describing  the  river 
configuration.  This  output  could  be  directed  to  a  terminal,  printer  or 
file.  In  most  systems  defining  a  value  6  will  direct  the  output  to  a 
terminal  or  printer.  Other  values  of  IUT  should  be  defined  as  a  file.  The 
fixed  data  is  primarily  the  input  for  the  computer  model  found  in  file 
XXXX.GEO  and  XXXX.BND  as  described  in  sections  on  ROSS  and  Chapter  III.  The 
choice  of  whether  the  output  from  PRINT  will  be  written  to  a  file  or  not 
depends  upon  the  variable  I0PT1.  If  I0PT1  equals  one  (1),  information  is 
written  to  a  file,  terminal,  or  printer  if  I0PT1  equals  zero  (0)  and  no 
output  is  generated  from  PRINT. 


AO 


Input 

Data  transferred  into  PRINT  from  ROSS  includes  the  grid  box  size  (DX) , 
the  unit  number  for  printing  the  output  (IUT),  the  number  of  branches 
(NBRNCH)  and  the  number  of  grid  boxes  in  the  x-direction  (NGRIDX) . 
Information  read  into  ROSS  and  utilized  by  PRINT  includes: 

1. )  River  shore  and  island  shore  boundary  information. 

2. )  Cross  section  locations,  geometry  and  connection  information. 

3. )  Boundary  types  and  rejection  rates. 

Output 

A  heading  and  the  fixed  river  configuration  (geometry)  is  written  to 
file  OILPRT.OUT  (if  IUT  =  2)  and  to  the  console  if  IUT  =  6.  Also  included 
in  the  output  is  shore  (boundary)  type  information.  Value  of  IUT  can  be 
changed  by  changing  the  corresponding  value  in  CALL  PRINT  statement. 

Procedure 

1. )  Write  the  heading  with  date  and  time  of  program  execution. 

2. )  Write  number  of  branches,  grid  boxes  in  x-direction,  grid  box  size 

and  number  of  interpolations  between  sections. 

3. )  Write  the  information  on  sections  for  each  branch. 

A.)  Write 

a. )  cross  section  reference  coordinates,  orientation  and  width 

b. )  number  of  streamtubes  at  that  section 

c. )  connecting  conditions  to  the  next  streamtube 

5. )  Write  the  geometry  of  the  cross  sections  i.e.  The  distance  from  the 

reference  coordinates  and  corresponding  sounding  depth. 

6. )  Write  the  grid  configuration  for  schematized  river  i.e.  for  every 

grid  box  in  the  x-direction,  there  exists  an  upper  and  lower  y-grid 
for  the  river  boundary  and  an  upper  and  lower  y-grid  for  an  island. 
If  no  island,  y-grids  for  island  equal  zero  (0). 

7. )  Write  rejection  rates  for  each  grid  box. 


41 


Common  Blocks  Referenced 

VA,  VASB,  ASB,  VEL 
Subroutines  Called 
none 

Internal  Variables 


'  Variable 
Name 

/  Algebraic 
Name 

/  Type  / 

.  Definition  / 

DATRUN 

STRING 

system  generated  date  of  execution 

KNUM 

INTEGER 

number  of  river  boundaries  equal  2 
without  islands,  equals  4  with  islands 

IN 

INTEGER 

temporary  storage 

IS2 

INTEGER 

temporary  storage 

IWIDTH 

INTEGER 

temporary  storage  of  YWID(I.J) 

IUT 

INTEGER 

defines  the  unit  number  to  which  the 
output  will  be  printed. 

TIMRUN 

CHARACTER 

system  generated  time  of  execution 

SUBROUTINE  SPRDAX 

The  subroutine  SPRDAX  handles  the  axisymmetrical  spreading  of  moving 
oil  particles.  The  slick  area  is  divided  into  eight  pie  segments  and  the 
axisymmetrical  spreading  equations  are  applied  to  particles  in  each  pie. 

Input 

Data  transferred  into  SPRDAX  from  ROSS  includes  the  grid  box  size  (DX) , 
oil  spill  simulation  time  step  (SPILDT),  elapsed  time  of  simulation  (TIMET), 
the  printout  indicator  (1NDPRN),  duration  of  the  spill  (SPLTIM)  and  volume 
rate  of  spill  (SPLRAT). 

Information  utilized  by  SPRDAX  includes: 

1.)  Current  particle  locations  and  spill  centroid. 
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2. )  Boundary  information. 

3. )  Spreading  law  constants. 

4. )  Shifted  particle  information. 

5. )  Oil  evaporation  information. 

6. )  Information  on  ice  regions. 


Output 

The  following  information  is  generated: 

1. )  New  particle  locations  are  calculated  after  spreading  phase. 

2. )  Mean  radius  of  slick  in  each  pie  is  computed  and  printed 

3. )  Any  shifted  particles  are  placed  back  on  the  upper  side  of  the 

island. 

4. )  Spill  Area  exposed  to  air,  SPAREA,  and  spill  area  under  ice 

SPAICE  is  computed. 


Procedure 


1. )  Calculate  the  constant  terms  for  spreading  rate  equations. 

2. )  Calculate  the  average  radius  of  all  moving  particles. 

3. )  Locate  numbers  (indices)  of  particles  which  belong  to  a  pie 

rejecting  any  outside  of  a  calculated  range. 

4. )  Calculate  the  mean  pie  radius. 

5. )  Determine  whether  the  pie  is  under  ice  or  not.  If  it  is  not  under 

ice,  skip  Step.  6. 

6. )  Determine  if  the  oil  is  still  leaking.  If  leaking  has  stopped,  no 

spreading,  otherwise  go  to  Step  9  and  determine  spreading  under  ice 
conditions . 

7. )  Calculate  the  transition  times  based  upon  the  mean  pie  radius  and 

eight  times  the  oil  volume  in  the  pie  segment. 

8. )  Determine  the  spreading  phase  of  oil  particles,  and  the  mean  pie 

radius. 

9. )  Determine  the  spreading  rate. 

10. )  Calculate  new  particle  locations. 

11. )  Calculate  SPAREA  and/or  SPAICE 
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12.)  Repeat  3-11  for  each  pie  segment. 


13. )  Check  to  make  sure  no  particles  shifted  from  the  top  side  of  the 

island  have  spread  through  the  island  (if  necessary) . 

14. )  Shift  particles  back  to  upper  side  of  island  (if  necessary). 

15. )  Check  for  particles  hitting  river  or  island  shoreline. 

Common  Blocks  Referenced 

VASB,  SO,  BL0CK7,  ASB,  SE 
Subroutines  Called 
none 

Internal  Variables 


'  Variable 
Name 

/  Algebraic 
Name 

/  Type 

/  Definition  / 

AKINER 

REAL 

combined  constants  for  gravity  phase 
spreading  rate  equation 

AKSURF 

REAL 

combined  constants  for  surface  tension 
phase  spreading  rate  .equation 

AKVISC 

REAL 

combined  constants  for  viscous  phase 
spreading  rate  equation 

ANG 

REAL 

angle  a  line  that  connects  the  particle 
location  to  spill  center  makes  with 
positive  x-direction 

ANG1 

REAL 

upper  angle  limit  of  pie  segment 

ANG2 

REAL 

lower  angle  limit  of  pie  segment 

ATX1 

REAL 

temporary  storage 

ATX2 

REAL 

temporary  storage 

DELTA 

1  ~T 

REAL 

difference  in  specific  gravity  between 

w 

oil  and  water 

DRDT 

dr/dt 

REAL 

axisymmetrical  spreading  rate  at  mean  pie 
radius 

DVDT 

dv/dt 

REAL 

time  rate  of  change  of  oil  volume 

G 

g 

REAL 

gravitational  acceleration 

ICOND 


ICOND 

INTEGER 

ICOND  =  0:  oil  in  the  pie  has  free 
surface  conditions 

ICOND  =  1:  oil  in  the  pie  is  under  ice 

IPIE 

INTEGER 

pie  number 

J 

INTEGER 

temporary  storage  of  IMOVIN(I) 

L 

INTEGER 

temporary  storage 

M 

INTEGER 

temporary  storage 

NPTPIE 

INTEGER 

number  of  particles  in  the  pie,  no  more 
than  1000  particles  allowed  in  a  pie  at 
one  time 

NTRACK ( I ) 

INTEGER 

keeps  track  of  particle  numbers  in  the 
pie 

RADIUS (I) 

REAL 

distance  to  particles  (radius)  in  the  pie 
from  spill  center 

RADOLD 

REAL 

radius  before  spreading  (ft) 

RADNEW 

REAL 

radius  after  spreading  (ft) 

RMEAN 

r 

REAL 

mean  pie  radius  (ft) 

ROWAT 

P 

w 

REAL 

•  3 

density  of  water  (slugs/ft  ) 

SPRATE 

REAL 

spreading  distance  in  SPILDT  time  (per 
unit  radius) 

SPX 

REAL 

temporary  storage 

SPY 

REAL 

temporary  storage 

TERMIN 

REAL 

time  at  which  spreading  terminates  (sec) 

TIMBAR 

REAL 

average  of  previous  total  simulation  time 
plus  current  simulation  time 

TOTRAD 

REAL 

mean  radiut  for  all  moving  particles 

TSURFT 

REAL 

transition  time  from  viscous  to  surface 
tension  phases  (sec) 

TV  ISC 

REAL 

transition  time  from  inertia  to  viscous 
phases  (sec) 

VOLBAR 

REAL 

average  of  previous  pie  volume  plus 
current  pie  volume 

VOLNOW 

REAL 

current  pie  volume 

4  5 


X 


REAL 


temporary  storage 


Y  REAL  temporary  storage 

SUBROUTINE  SPRD1X 

The  subroutine  SPRD1X  handles  the  one-dimensional  spreading  of  moving 
oil  particles.  The  slick  is  divided  into  strips  and  the  one-dimensional 
spreading  equations  are  applied  to  each  individual  strip. 

Input 

Data  transferred  into  SPRD1X  from  ROSS  includes  the  grid  box  size  (DX) , 
oil  spill  simulation  time  step  (SPILDT) ,  elapsed  time  of  simulation  (TIMET), 
the  printout  indicator  (INDPRN) ,  and  spill  area  exposed  to  air  (SPAREA) . 
Information  utilized  by  SPRD1X  includes: 

1. )  Current  particle  locations  and  spill  centroid. 

2. )  Boundary  information. 

'3.)  Spreading  law  constants. 

4. )  Shifted  particle  information. 

5. )  Oil  evaporation  information. 

6. )  Information  on  Ice  regions. 


Output 

The  following  information  is  generated: 

1. )  New  particle  locations  are  calculated  after  spreading  phase. 

2. )  Mean  position  of  the  edge  of  the  slick  in  each  strip  is  computed 

and  printed. 

3. )  Any  shifted  particles  are  placed  back  on  the  upper  side  of  the 

island. 

4. )  Spill  area  exposed  to  air,  SPAREA,  and  spill  area  under  ice 

(SPAICE)  is  computed. 
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Procedure 


1. )  Calculate  the  constants  needed  for  spreading  rate  equations. 

2. )  Locate  the  strip  farthest  downstream  (LMAX)  and  the  strip  farthest 

upstream  (LMIN). 

3. )  Calculate  strip  centroid  with  relation  to  y-coordinates  of 

particles  in  strip. 

4. )  Determine  particle  ID  numbers  which  belong  to  a  strip,  with  a 

minimum  of  two  particles  required  in  a  strip  for  spreading  to  take 
place. 

5. )  If  more  than  half  the  particles  in  the  strip  are  under  ice  then 

ICOND  =  1;  otherwise,  ICOND  =  0. 

6. )  If  ICOND  =  1,  no  spreading 

7. )  Calculate  the  mean  spreading  distance  (width)  of  the  slick  in  the 

strip  (XLE)  based  upon  the  distance  to  particles  from  the  strip 
centroid . 

8. )  Calculate  the  transition  times  based  upon  the  oil  volume  in  the 

strip. 

9. )  Determine  in  what  phase  oil  particles  at  the  mean  width  (XLE)  are 

spreading  and  calculate  the  appropriate  spreading  rate. 

10. )  Calculate  new  particle  locations. 

11. )  Repeat  7-10  for  both  sides  of  the  slick  centroid. 

12. )  Repeat  3-11  for  each  strip. 

13. )  Check  to  make  sure  no  particles  shifted  from  the  top  side  of  the 

island  have  spread  through  the  island  (if  necessary) . 

14. )  Shift  particles  back  to  upper  side  of  island  (if  necessary). 

15. )  Check  for  particles  hitting  river  or  island  shoreline. 

Common  Blocks  Referenced 


VASB,  SO,  BLOCK7,  BL0CK8,  ASB.  SE 
Subroutines  Called 


none 
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Internal  Variables 


'  Variable 
Name 

/  Algebraic 
Name 

/  Type  / 

Definition  / 

AKINER 

REAL 

combined  constants  for  gravity  phase 
spreading  rate  equation 

AKSURF 

REAL 

combined  constants  for  surface  tension 
phase  spreading  rate  equation 

AKVI SC 

REAL 

combined  constants  for  viscous  phase 
spreading  rate  equation 

DRDT 

dr/dt 

REAL 

one-dimensional  spreading  rate  at  mean 
strip  width 

DVDT 

dv/dt 

REAL 

time  rate  of  change  of  oil  volume 

ICOND 

INTEGER 

if  ICOND  =  0,  the  strip  is  treated  as 
free  surface. 

If  ICOND  =1,  the  strip  is  treated  as 
under  ice 

I STRIP 

INTEGER 

strip  number 

LMAX 

INTEGER 

number  of-  the  strip  farthest  downstream 

LMIN 

INTEGER 

number  of  the  strip  farthest  upstream 

NPT(I) 

INTEGER 

if  I  =  1,  NPT  is  the  number  of  particles 
on  (+)  side  of  YBAR;  if  I  =  2,  NPT  is  the 
number  of  particles  on  the  (-)  side  of 
YBAR 

NPTSTR 

INTEGER 

number  of  particles  in  a  strip 

NT  RACK  (I ) 

INTEGER 

keeps  track  of  particle  numbers  in  the 
strip 

RADIUS (I) 

REAL 

distances  of  particles  from  YBAR 

SPRATE(I) 

REAL 

spreading  distance  in  SPILDT  time  per 
unit  distance  to  mean  edge.  If  I  =  1  it 
is  for  (+)  side.  If  I  =  2  it  is  for  (-) 
side. 

TERM IN 

REAL 

time  at  which  spreading  terminates  (sec) 

TIMBAR 

REAL 

average  of  previous  total  simulation  time 
plus  current  simulation  time  (sec) 

TSURFT 

REAL 

transition  time  from  viscous  to  surface 
tension  phases  (sec) 
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TVISC 

REAL 

transition  time  from  inertia  to  viscous 
phases  (sec) 

UTHICK 

REAL 

thickness  at  the  temination  of  spreading 
(ft) 

VOLBAR 

REAL 

average  of  previous  strip  volume  plus 
current  strip  volume 

VOLNOW 

REAL 

current  strip  volume 

X 

REAL 

temporary  storage 

XLE(I) 

INTEGER 

mean  strip  width  on  (+)  side  of  YBAR  if  I 
=  1  or  on  (-)  side  if  I  =  2 

YBAR 

REAL 

centroid  of  strip  width  respect  to  the 
y-direction 

SUBROUTINE  SPRD1Y 

This  subroutine  is  very  similar  to  SPRD1X.  In  this  subroutine  the 
strips  are  for  a  y-grid  box,  running  in  the  direction  of  x-axis.  The 
explanation  is  the  same  as  SPRD1X. 

SUBROUTINE  VELD IS 

The  subroutine,  VELDIS,  calculates  the  two-dimensional  depth-averaged 
velocity  distribution  in  the  river.  The  water  velocity  is  determined  for 
each  grid  box  representing  the  river. 

Input 

Data  transferred  into  VELDIS  from  ROSS  includes  the  printing  option 
(I0PT2) ,  number  of  branches  (NBRNCH) ,  number  of  grid  boxes  in  the 
x-direction  (NGRIDX),  and  the  grid  box  size  (DX) . 

Information  read  into  ROSS  and  utilized  by  VELDIS  includes.: 

1. )  branch  connections,  discharges  and  stages 

2. )  cross  section  locations,  geometry,  connecting  information  and 

ice  thickness  (if  applicable) 
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3.)  river  shore  and  island  shore  boundary  grid  boxes 
A.)  information  on  the  grid  boxes  to  have  zero  velocities 


Output 

components  of  velocity  and  coordinates  where  they  act  are 
written  (optional)  to  datafiles  as  follows: 

for  each  streamtube  across  all  cross  sections. 

for  each  grid  box  in  the  cartesian  system  representing  the 
river. 


each  branch: 

Go  from  cross  section  to  cross  section  and  calculate  the 
streamtube  velocities  across  the  river  width. 

Store  the  magnitude  of  the  streamtube' s  velocity  as  complex 
variable  VSTRM's  x-component. 

Calculate  the  coordinates  of  the  point  at  which  the  streamtube 
velocity  acts. 

2. )  Calculate  the  direction  xn  which  the  streamtube  velocities  act. 

a.  )  Use  the  coordinates  of  velocities  in  the  same  streamtube  for 

two  consecutive  cross  sections  and  calculate  the  distance 
between  them  in  x  and  y  direction 

b. )  Use  these  distances  to  resolve  the  magnitude  of  streamtube 

velocity  into  x  and  y  components  by  using  similar  triangles 

3. )  Print  x  and  y  velocity  components  and  corresponding  coordinates  to 

a  file  if  variable  IPROPT  =1.  (transferred  from  main  program  as 
I0PT2) 

4. )  The  streamtube  velocities  computed  at  the  cross  sections  are  used 

to  assign  velocities  to  each  grid  box  representing  the  river. 

a. )  Assign  streamtube  velocity  to  a  grid  box  (across  the  cross 

section)  if  its  coordinates  are  within  a  box  (using  averaging 
if  two  velocities  fall  into  the  same  box.) 

b. )  Between  two  cross  sections  along  the  same  streamtube, 

interpolate  between  the  streamtube  velocities  at  each  section  a 
set  number  (KIlITM)  of  times  using  weighted  averages  and  obtain 
KINTM  interpolated  velocities  and  corresponding  coordinates. 


X  and  y 
computed  and 

a.  ) 

b. ) 

Procedure 

1.)  For 

a.  ) 

b. ) 

c.  ) 


c. )  Using  these  interpolated  velocities,  assign  velocities  to  the 

grid  boxes  between  the  cross  sections  using  the  same  technique 
as  described  in  a.) 

d. )  Search  the  river  for  grid  boxes  containing  no  velocities  and 

assign  velocities  to  them  by  taking  an  average  of  the 
velocities  of  the  surrounding  boxes. 

5. )  For  the  specified  NZRVB  boxes  set  velocities  to  zero 

6. )  If  IPROPT  =1,  the  x  and  y  coordinates  and  the  velocity  assigned  to 

these  coordinates  are  printed  to  a  file. 

Common  Blocks  Referenced 

VEL,  VASB,  VA,  V 
Subroutines  Called 
none 


Internal  Variables 


Variable 

Name 

/  Algebraic 
Name 

/  Type  / 

Definition  / 

ANGL 

REAL 

temporary  storage  of  SCTANG(I) 

ARIY 

zar2/3 

p  p 

REAL 

2/3 

area  x  (hydraulic  radius) 

ATUBE 

REAL 

cumulative  area  up  to  and  including  tube 
n 

ATUBE1 

REAL 

cumulative  area  up  to  tube  n 

COUNT 

INTEGER 

number  of  boxes  with  assigned  velocities 
surrounding  the  current  box 

DYRS 

REAL 

distance  between  sounding  depth  points 
defining  the  cross  section 

IBCON 

INTEGER 

next  connecting  branch 

ICEIND 

INTEGER 

ice  indicator;  ice  covered  ICEIND  =  1  for 
open  water,  ICEIND  =  0 

IPOS 

INTEGER 

keeps  track  of  position  in 
one-dimensional  array  for  storing  grid 
box  velocities 

I  ROW 

INTEGER 

used  when  checking  to  see  if  the  island 

is  inside  the  boundary  or  not 
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IS 

INTEGER 

cross  section  number 

ISCON 

INTEGER 

temporary  storage  of  cross  section  number 
of  next  connecting  cross  section 

ITB 

INTEGER 

streamtube  number 

ITBCON 

INTEGER 

next  connecting  streamtube  (island  case) 

IY1 

INTEGER 

lower  y-direction  grid  box  for  a 
particular  x-direction  grid  box 

IY2 

INTEGER 

upper  y-direction  grid  box  for  a 
particular  x-direction  grid  box 

J1 

INTEGER 

temporary  storage  of  IY1 

•J2 

INTEGER 

temporary  storage  of  IY2 

L 

INTEGER 

x-direction  grid  box  number 

LASTSC 

INTEGER 

last  cross  section  in  branch 

M 

INTEGER 

y-direction  grid  box  number 

MM 

INTEGER 

temporary  storage 

NFIRST 

INTEGER 

temporary  storage  of  NFIRCO 

NIY 

INTEGER 

number  of  sounding  depths  describing 
cross  section  geometry 

NSTB 

INTEGER 

temporary  storage  of  NSTUB 

NSTUB1 

INTEGER 

NSTB  -  1 

PSARIY 

REAL 

partial  sum  of  area  x  (hydraulic 

radius) 

QIY 

% 

REAL 

cumulative  discharge  up  to  nt^1  sounding 
depth 

QIY1 

REAL 

cumulative  discharge  up  to  n-l^  sounding 
depth 

QSET 

REAL 

set  discharge  for  streamtube 

QSTUBE 

REAL 

computed  discharge  for  any  one  streamtube 

RAD 

D 

REAL 

temporary  storage 

SAIY 

L 

l  A 

P 

REAL 

partial  sum  of  areas 
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SARIY 

N  2/3 

IA  R  115 

P  P 

REAL 

2/3 

total  sum  of  area  x  (hydraulic  radius) 

SCTLEN 

REAL 

length  from  the  beginning  of  a  branch  to 
a  particular  cross  section  in  the  branch. 
(For  interpolation  purpose  only.  Used 
only  with  TBRLEN.) 

SPERI 

N 

REAL 

sum  of  wetted  perimeters 

SXAREA 

I A 

P 

REAL 

total  cross  sectional  area 

TBRLEN 

REAL 

total  branch  length  (For  interpolation 
purpose  only.  Used  only  with  SCTLEN.) 

TISUM 

REAL 

sum  of  ice  thicknesses  at  two  successive 
points  (sounding  depth  locations)  across 
the  cross  section 

VMAG 

V 

P 

REAL 

.  magnitude  of  velocity  in  streamtube 

WX 

REAL 

temporary  storage 

WY 

REAL 

temporary  storage 

WLSCT 

REAL 

water  level  (stage)  at  cross  section 

X 

REAL 

x-coordinate  of  center  of 'the  box 

Y 

REAL 

y-coordinate  of  center  of  the  box 

YSTB 

REAL 

distance  from  cross  section  reference 
point  to  center  of  stream  tube 

YSTB1 

REAL 

distance  from  cross  section  reference 
poxnt  to  far  side  of  streamtube 

YSTB2 

REAL 

distance  from  cross  section  reference 
point  to  near  side  of  streamtube 
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CHAPTER  III 


INPOT  DATA  FILES 

There  are  two  categories  of  input  data  that  are  required  to  run  the 
model.  The  first  category  deals  with  what  can  be  considered  as  fixed  data. 
This  is  the  information  required  to  describe  the  river's  shoreline  and  cross 
sectional  geometry.  Normally,  there  is  no  need  to  adjust  this  data  once  it 
hcS  proven  to  give  satisfactory  results.  The  second  category  includes 
various  parameters,  constants,  etc...  which  are  to  be  adjusted  depending 
upon  the  river  discharge,  spill  location,  spill  type,  spill  volume,  etc. 

To  completely  understand  the  set  up  of  the  data  files,  it  is  helpful  to 
go  through  the  step  by  step  procedure  in  the  Section  III.l.  Sample  input 
data  files  are  given  in  Section  III. 3.  This  is  especially  important  if  the 
model  is  to  be  run  for  a  river  for  which  the  data  file  has  not  been  set  up 
before.  If  the  user  is  only  interested  in  adjusting  parameters,  changing 
the  spill  location,  or  establishing  new  stage  discharge  conditions  on  a 
previously  modeled  river,  section  III. 2  will  be  helpful  in  establishing  the 
guidelines  to  follow.  Note  that  formatting  procedures  for  data  input  are 
not  covered  in  this  section.  III. 2. 

III.l  Data  File  Creation 

As  a  demonstration  of  the  model's  capabilities,  the  Detroit  River  will 
be  used  as  an  example  in  this  Manual.  Where  the  data  files  for  Detroit 
River  is  not  sufficient  to  describe  the  detail,  other  river  data  will  be 
presented.  This  river  was  selected  since  it  shows  the  complexity  of  river 
which  the  model  can  handle.  All  discussions  on  input  and  output  data  will 
refer  to  the  Detroit  River  (Fig.  3.)  from  here  on. 

Five  data  files  exist  for  inputting  information  into  the  computer 
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model.  The  first  file  DETR. GEO  supplies  all  the  necessary  data  for 
describing  the  river  geometry  and  boundaries.  The  second  file  DETR.FLW 
contains  discharge,  elevation  data  at  the  nodes  of  one-dimensional  model. 
The  third  file  DETR.BND  contains  the  half  life  data  for  the  banks  of  the 
river.  The  fourth  file  DETR. SPL  contains  all  data  pertinent  to  the 
governing  equations  for  the  spreading  of  oil  on  the  river  surface.  The 
fifth  file  DETR. ICE,  contains  the  data  describing  the  ice  parameters  and  ice 
regions . 

The  first  step  in  preparing  the  data  file  is  to  draw  up  a  sketch 
similar  to  Fig.  9a  and  9b.  The  intent  of  this  sketch  is  to  completely 
describe  the  branch  and  cross  section  numbering  system  used  in  the  data 
file.  The  procedure  to  obtain  this  sketch  is  as  follows: 

1. )  Determine  the  number  of  branches.  Each  branch  must  contain  at 

least  two  cross  sections.  End  branches  (e.g.  15)  must  contain  at 
least  three  cross  sections. 

2. )  Number  the  cross  sections  in  consecutive  order  from  the  upstream 

to  the  downstream  end  of  the  river.  Around  islands,  number  the 
bottom  side  up  to  the  last  cross  section  prior  to  convergence  into 
a  single  channel  then  go  back  to  the  top  side  and  continue  the 
numbering  sequence. 

3. )  Determine  the  number  of  streamtubes  in  each  branch.  The  total 

number  of  streamtubes  always  remains  constant  so  on  each  side  of 
an  island,  the  streamtubes  must  be  divided  up  according  to  the 
ratio  of  the  flow  split  around  the  isxand. 

Once  the  branches  and  cross  sections  for  the  river  is  established, 
scaled  maps  of  the  river  and  cross  sections  are  used  to: 

1.)  Establish  the  overall  x-y  cartesian  coordinates  to  be  superimposed 
over  the  river. 
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2. )  Establish  which  side  of  the  river  the  cross  section  locations 

(reference  coordinates)  will  be  referenced  to. 

3. )  Digitize  the  entire  river  boundary  and  cross  section  locations 

simultaneously. 

4. )  Digitize  the  cross  section  geometries  by  measuring  a  distance  from 

the  reference  coordinates  to  a  corresponding  sounding  depth. 

5. )  Schematize  the  river  into  boundary  boxes  i.e.  for  every  x-grid 

there  exists  corresponding  upper  and  lower  river  (and  island) 
shore  boxes. 

XXXX.GEO 

The  file  DETR.GEO  consists  of  five  blocks  of  information  with  a  varying 
or  nonvarying  number  of  cards  in  each.  All  blocks  are  listed  below  with  the 
components  and  description.  Most  of  the  data  read  into  the  model  is  in  list 
directed  I/O  (free  format)..  If  column  numbers  are  shown,  the  data  must  be 
formatted  accordingly,  otherwise  it  is  necessary  to  put  only  one  space  or 
comma  between  each  number  in  a  card.  A  sample  DETR.GEO  file  is  presented  in 
Section  III. 3. 


DETR.GEO;  Block  1  —  branch  and  grid  information 
Card  1 


example : 

DETR  Detroit  River 


/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


WORD  A4  1-4  keyword  to  define  river. 

Example:  STCL,  DETR,  STMU,  STML 
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TEXT  19A4  5-80  Any  text  to  identify. the  purpose  for 

computer  run. 

Card  2 
example: 

15  250  500.  7 


/  Variable  /  Type  and  /  Column  /  Definition  / 


Name 

Length 

Number 

NBRNCH 

Integer 

— 

number  of  branches 

NGRIDX 

Integer 

— 

number  of  grid  boxes 

DX 

Real 

— 

grid  box  size 

KINTM 

Integer 

— 

number  of  velocity  interpolations  between 

cross  sections  in  a  streamtube 


Card  3  (1  number  for  each  branch) 
example: 

3  6  8  13  16  20  25  27  29  31  33  39  42  48  50 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


LCSTSQ(I)  Integer  —  last  cross  section  in  each  branch.  Last 

branch  -  use  second  last  cross  section. 
There  must  be  NBRNCH  numbers  (data).  If 
line  is  not  long  enough,  continue  in  the 
following  line. 


DETR.GEO;  Block.  2  —  cross  section  location  and  connection  information 
Card  1  (1  card  for  each  cross  section) 
example : 

1  (1895.4,31874.9)  0.80316770  9  11  20 
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/  Variable  /  Type  and  /  Column  / 
Name  Length  Number 


Definition 


J 

CORDLB (I ) 

SCTANG (I ) 

NSTUBE (I) 

NUMCON ( I ) 

NFIRCO(I) 

NSECO(I) 


Integer 

Complex 

Real 

Integer 

Integer 

Integer 

Integer 


cross  section  number  (for  checking) 

complex  variable  giving  x  and  y 
coordinate  locating  cross  section  on 
reference  shore 

angle  (radians)  cross  section  makes  with 
positive  x-axis 

number  of  streamstubes  at  current  cross 
section 

if  all  streamtubes  continue  to  next  cross 
section  undivided  =11,  if  streamtubes 
divide  into  two  channels  from  main 
channel  =  12,  if  streamtubes  from  this 
channel  and  another  channel  connect  to 
next  section  which  is  in  main  channel  = 

21 

next  cross  section  connecting  to  current 
cross  section.  For  a  divided  channel 
around  an  island,  this  represents  the 
first  cross  section  connected  to  in  the 
lower  division  from  the. main  channel 
cross  section 

f<jr  a  divided  channel  around  an  island, 
this  represents  the  first  section 
connected  to  in  the  upper  division  from 
the  main  channel  cross  section  (if  no 
island  =0.  If  this  is  first  cross 
section  in  upper  branch  =  888.  If  this  is 
last  section  in  upper  branch  =  999.) 


DETR.GEO;  Block  3  —  cross  section  geometry 
Card  1 


example : 
3 


9  574.91 
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Variable  / 
Name 

Type  and 
Length 

/  Column  / 
Number 

Definition  / 

J 

Integer 

— 

cross  section  number  (for  checking) 

NSLSCT(J) 

Integer 

— 

number  of  sounding  depths  used  to 
describe  the  cross  section  geometry 

ZD  (J) 

Real 

— 

refemce  datum  for  section  J  from  which 
the  sounding  depth  is  evaluated 

Card  2  (as  many  cards  as  required  to  input  all  sets  of  YWID.Z) 
example: 

50.00  12.00  125.00  20.00  750.00  21.00  1250.00  22.00  1350.00  28.0 

2425.00  28.00  2525.00  5.00  3250.00  4.00  3425.00  0.00 


/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


YWID(I,J)  Real  —  distance  from  the  reference  shore  to  the 

sounding  depth  in  the  1^  cross 
section 

t  h.  th 

Z(I.D)  Real  —  J  sounding  depth  for  the  I  section 

NOTE:  Block  3  must  be  repeated  LCSTSQ (NBRNCH)  times  (i.e.  =  no.  of  cross 
sections  defined) . 


DETR.GEO;  Block  4  —  boundary  grid  boxes 


Card  1  (1 

for 

each  grid 

in  a  x-direction) 

example : 

14 

54 

74 

64  65 

/  Variable  / 
Name 

Name  ar 
Length 

!  Column  /  Definition 

Number 

/ 

J 

Integer 

—  x-grid  box  number 
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IGRIL3 (J) 

Integer 

y-  direction  grid  box  numer  of  lower  river 

boundary  for  x-grid  (water  side  grid 

box) 

IGRIUB(J) 

Integer 

—  y-direction  grid  box  number  of  upper 

t  h 

river  boundary  for  J  x-grid  (water  side 

grid  box) 

IGRLB1 (J) 

Integer 

—  y-direction  grid  box  number  of  lower 

island  boundary  for  J1"*1  x-grid  (land  side 
grid  box) 

IGRIBl(J) 

Integer 

—  y-direction  grid  box  number  of  upper 

island  boundary  for  J*"*1  x-grid  (land  side 
grid  box) 

NOTE:  Block 

4  must  be 

repeated  NGRIDX  (no.  of  grids  in  x-direction)  times. 

DETR.GEO;  Block  5  —  Define  any  specific  grid  boxes  to  have  zero 

velocity. 

Card  1 
example: 

67 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

NZRVB  Integer  No.  of  boxes  to  assign  zero  velocities 

Card  2 
example: 

143  16  143  33  144  16 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


IZRBX(I)  Integer  x-grid  no.  of  Ith  box  to  have  zero 

velocity 

IZRBY(I)  Integer  y-grid  no.  of  Ith  box  to  have  zero 

velocity 

There  must  be  NZRVB  pairs  of  IZRBX(I)  and  IZRBY(I).  Data  may  be 
continued  to  as  many  lines  as  needed. 

THIS  IS  THE  END  OF  DATAFILE  DETR.GEO. 
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XXXX.ICE 

The  DETR.ICE  file  contains  information  identifying  ice  regions  which 
the  user  will  have  to  adjust  as  ice  conditions  develop.  An  ice  region  is  a 
range  of  grid  boxes  containing  ice  (Fig.  10).  (Example,  an  ice  region  may 
be  identified  as  extending  from  grid  (15,7)  to  grid  (18,12).  The  ice  region 
then  covers  every  grid  from  (15,7)  to  the  upper  shoreline  of  x  column  (15), 
all  grids  in  X  columns  (16)  and  (17),  and  from  the  lower  shoreline  in  x 

column  (18)  up  to  and  including  grid  (18,12).  In  another  example,  an  ice 

region  may  be  identified  as  grid  (21,7)  to  (21,9).  Then,  the  ice  region 

will  only  extend  between  y  grids  (7)  and  (9)  in  x  grid  column  (21).)  This 

information  is  used  when  determining  if  spreading  and  advection  takes  place 
under  ice  or  on  open  water.  A  sample  file  listing  is  given  in  Section 
III. 3. 

DETR.ICE;  Block  1 

Card  1 

Example: 

0.035  12.5 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

ANICE  REAL  Manning's  n  for  ice  roughness 

AMIUO  REAL  viscosity  of  oil  (gm  cm/sec) (poise) 

Card  2 
Example: 

1 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

NICERG  INTEGER  total  number  of  ice  regions 
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Card  3  (1  card.  If  card  is  not  long  enough  continue  on  next  card) 
Example: 

15  7  18  9 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


NICEX1 (I) 

INTEGER 

X 

grid 

at 

the 

beginning 

of  ice  region 

NICEYl(I) 

INTEGER 

y 

grid 

at 

the 

beginning 

of  ice  region 

NICEX2 (I) 

INTEGER 

X 

grid 

at 

the 

end  of  ice 

region 

NICEY2 (I) 

IN-EGER 

y 

grid 

at 

the 

end  of  ice 

region 

NOTE:  Cards  2  and  3  must  be  repeated  for  each  time  step  in  Unsteady 
flow  Model 


Fig.  10.  Defining  Ice  Regions 


XXXX.FLtf 

The  DETR.FLW  file  contains  the  water  level  and  discharge  at  each  node 
in  the  river  as  defined  by  the  one-dimensional  flow  model  (Thomas,  1984). 
Also  included  are  the  ice  conditions  for  each  cross  section  in  the  river. 
This  data  is  separate  from  the  ice  region  data  in  DETR.ICE.  The  oil  spill 
simulation  model  converts  this  information  into  boundary  conditions  for  each 
river  branch. 

This  file  consists  of  three  blocks  of  information.  All  blocks  are 
listed  below  with  descriptions  and  corresponding  components.  Blocks  2  and  3 
must  be  repeated  every  time  the  velocities  are  updated  in  the  model,  i.e., 
every  time  step  of  the  one  dimensional  flow  model.  Therefore,  the  data  in 
this  file  needs  to  be  adjusted  on  a  more  regular  basis. 

If  the  format  and/or  column  numbers  are  shown,  the  data  must  be 
formatted  accordingly,  otherwise  it  is  necessary  to  have  only  one  space  or 
comma  between  the  data.  A  sample  file  listing  of  the  D'ETR.FLW  is  given  in 
Section  III. 3. 

For  St.  Clair,  Detroit  and  St.  Mary's  Rivers  the  difference  in  branch 
configuration  between  oil  spill  model  and  unsteady  flow  model  is  built  onto 
the  oil  spill  model  through  subroutine  NDCONV.  Hence,  no.  of  branches  for 
this  datafile  should  be  interpretted  as  the  no.  of  branches  in  the  unsteady 
flow  model.  If  this  model  is  used  for  other  rivers  the  following  steps  are 
needed: 

i)  interpret  no.  of  branches  as  the  no.  of  branches  in  the  oil  spill 
model 

ii)  remove  subroutine  NDCONV 

iii)  activate  the  following  three  lines  already  in  main  program  (presently 
given  as  comments) 
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DO  230  I  =  1,  NBRP1 
READ  (7,*)WL(I)fQ(I) 

CONTINUE 

DETR.FLW;  Block  1  —  Time  step  in  1-D  model. 

Card  1  (one  card) 
example: 

3.0 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

UFDT  Real  —  Time  in  1-D  flow  model  in  (Hrs.) 

DETR.FLW;  Block  2  —  discharge  and  storage 

Card  1  (1  for  each  branch  +1,  the  +1  comes  due  to  downstream  end) 
example: 

573.72  149190. 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

WL(I)  Real  —  water  level  at  upstream  end  of  each 

branch  (ft.  above  datum) 

Q(I)  Real  —  discharge  at  upstream  end  of  each  branch 

(cfs) 

DETR.FLW;  Block  3  —  ice  conditions  (thickness  information) 

Card  1 
example: 

1 
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/  Variable  /  Type  and  /  Column  / 
Name  Length  Number 


Definition 


/ 


ICINFO  Integer  —  number  of  cross  sections  with  ice  covered 

conditions.  If  no  ice  covered  sections 
set  ICINFO  =  1  and  then  in  Card  2,  define 
the  section  to  be  open  in  the  next  card. 


Card  2 
example: 


2  OPEN 

/  Variable  /  Type  and  /  Column  / 
Name  Length  Number 


Definition 


/ 


IS 

14 

1-4 

number  of  cross  section  with  ice  covered 
conditions 

WORD 

A4 

6-9 

cross  section  ice  cover  condition,  "FULL" 
=  fully  covered,  "PART"  =  partially 

covered,  "OPEN"  =  open  water.  If  WORD  = 
’’FULL” ,  then  Card  3  has  only  one  value 
and  that  is  the  ice  thickness  across  the 
.river  for  that  x-section.  If  WORD  = 
"PART",  then  Card  3  must  have  an  ice 
thickness  defined  at  each  vertical  line 
defining  the  x-section  =  NSLSCT(IS).  If 
all  numbers  don't  fit  into  one  card  as 
many  cards  as  necessary  may  be  used. 


Card  3  (for  fully  covered  cross  section) 

(NOTE:  Card  3  must  follow  every  Card  2  if  WORD  =  "FULL"  or  WORD  =  "PART". 
If  WORD  =  "OPEN",  card  3  is  not  needed.) 

example : 


0.6 


/  Variable  /  Type  and  /  Column  /  Definition 

Name  Length  Number 


FULLTI  REAL  —  Ice  thickness  (ft)  of  fully  covered  cross 

section.  Only  one  value  is  read  as  input 
and  it  will  be  assigned  to  the  entire 
cross  section. 
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Card  3  (for  partially  covered  cross  section) 


example: 


0.3  0.4  0.6  0.6 


0.6  0.5  0.2 


/  Variable 
Name 


Type  and  / 
Length 


Column  / 
Number 


Definition 


/ 


TICE(I.J)  Real  —  Ice  thickness  (ft)  of  partially  covered 

cross  section.  There  must  be  one  value 
for  each  sounding  depth  of  the  cross 
section  with  one  additional  for  the 
extreme  left  of  the  cross  section  where 
depth  sounding  is  not  input  through  data 
because  it  is  always  assumed  to  be  zero. 


Block  2  followed  by  3  must  be  repated  for  every  1-D  model  time  step. 


THIS  IS  THE  END  OF  DATAFILE  DETR.FLW. 


XXXX.BND 

The  DETR.BND  file  consists  of  three  blocks  of  information.  All  blocks 
are  listed  below  with  components  and  description;  Most  of  the  data  read 
into  the  model  are  in  free  format.  If  the  format  and/or  column  numbers  are 
shown,  the  data  must  be  formatted  accordingly,  otherwise,  it  is  necessary  to 
have  only  one  space  or  comma  between  the  data.  A  sample  file  list-’ng  is 
given  in  Section  III. 3.  All  files  with  BND  extension  follow  the  same 
format. 


DETR.BND;  Block  1  —  half  life  data 

Card  1  (1  card  for  each  range  of  grid  boxes) 

example : 

115  3 
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/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

K  Integer  —  Shore  number.  Lower  y  (river)  =  1;  upper 

y  (river)  =  2;  lower  y  (island)  =  3; 
upper  y  (island)  =  A. 

LFROM  Integer  —  beginning  limit  (grid  box  number)  for 

half  life  designation  to  shore 

LTO  Integer  —  ending  limit  (grid  box  number)  for  half 

life  designation  to  shore 

ICODE  Integer  —  integer  identifying  which  of  the  ten  half 

life  values  to  be  assigned  to  a  grid 

Card  LAST  (must  be  included), 
example : 

0  0  0  0 

XXXX.SPL 

The  DETR.SPL  file  consists  of  three  blocks  of  information  with  a 
varying  or  nonvarying  number  of  cards  in  each  block.  All  blocks  are  listed 
below  with  the  components  and  description.  Most  of  the  data  read  into  the 
model  are  in  free  format.  Guidelines  for  the  length  of  the  variables  are 
given  when  necessary.  If  column  numbers  are  shown,  the  data  must  be 
formatted  accordingly,  otherwise  it  is  necessary  to  have  only  one  space 
between  each  number  in  a  card.  A  sample  listing  is  given  in  Section  III. 3. 

Block  1  —  oil  spill  and  simulation  parameters 
Card  1  (Type  of  oil  -  Identification  only) 

Example : 

Fuel  Oil  No.  2 
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/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

FUELTP  CHARACTER  1-16  text  for  identifying  the  oil  type 

Card  2 
example: 

24.0  10100  1800.  -1.0 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

TOTIME  Real  —  total  time  of  oil  spill  simulation 

(hrs.).  This  value  must  equal  or  exceed 
the  time  step  in  unsteady  flow  model, 
i.e.  in  FLW  file 

I EVERY  Integer  —  frequency  of  obtaining  output  from  PLOTNU 

and  other  subroutines.  Ex.,  value  of  two 
(2)  gives  output  every  other  time  step 

I0PT1  Integer  —  two  possible  values:  one  (1)  results  in 

•  output  of  fixed  data  such  as  cross 
section  geometry  and  shore  conditions, 
zero  (0)  'results  in  no  output 

IOPT2  Integer  —  two  possible  values:  one  (1)  results  in 

output  of  computed  velocities  to  a 
datafile  to  be  used  for  plotting,  zero 
(0)  results  in  no  output 

I0PT3  Integer  —  two  possible  values:  one  (1)  results  in 

output  of  particle  locations  to  a 
datafile  to  be  used  in  plotting,  zero  (0) 
results  in  no  output 

I0PT4  Integer  —  two  possible  values:  one  (1)  results  in 

number  plot  of  particle  distribution  (see 
PLOTNU) .  zero(0)  results  in  no  printout 

SPLTIM  Real  —  Duration  of  oil  spill  in  (secs),  ex.  oil 

might  have  been  leaking  for  15  mins. 

(i.e.,  SPLTIM  =  900).  This  variable  and 
SPLDT  determines  whether  spill  to  be 
treated  as  continuous  or  instantaneous. 
SPLTIM  =  0  is  also  allowed. 

2 

DIFFUR  Real  —  Horizontal  diffusion  coefficient  (ft  /s) 

for  river.  If  the  default  formulation  as 
described  in  Vol.  I  is  desired  set  this 
value  to  -1.0 
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Card  3 


example : 

500  10000.  900.  0.84  1.411E-5  2.06E-3  1.14  .98  1.6  1.39  1.39  1.43 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


NTOTAL 

Integer 

Total  number  of  particles  defined  in  the 
system  (current  maximum  is  1000) 

SPVOL 

Real 

— 

total  volume  of  oil  spill  (U.S.  gal.) 

SPILDT 

Real 

— 

magnitude  of  time  step  for  spill 
simulation  (seconds) 

SPGOIL 

Real 

— 

specific  gravity  of  oil 

ANIU 

Real 

— 

kinematic  viscosity  of  water  (sq. 
ft. /sec. ) 

SIGMA 

Real 

— 

surface  tension  of  oil  (lbs/ft) 

AK2I 

Real 

— 

Fay's  gravity-inertia  phase  spreading 
coefficient  (axisymmetrical) 

AK2V 

Real 

— 

Fay's  gravity-viscous  phase  spreading 
coefficient  (axisymmetrical) 

AK2T 

Real 

— 

Fay's  surface  tension-viscous  phase 
spreading  coefficient  (axisymmetrical) 

AKC10 

Real 

(Fay's  or  Waldman's)  gravity  -  inertia 
spreading  phase  coefficient 
(one-dimensional) 

AKC20 

Real 

— 

gravity  -  viscous  phase  spreading 
coefficient  (one-dimensional) 

AKC30 

Real 

— 

surface  tension  -  viscous  phase  spreading 
coefficient  (one-dimensional) 

Card  4 

example : 

40000. 

60000. 

.  7063E-2 

. 1873E-2  7.88  465.0 
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/  Variable  /  Type  and  /  Column  / 
Name  Length  Number 


Definition 


/ 


SPX 

Real 

— 

x-coordinate  of  spill  site 

SPY 

Real 

— 

y-coordinate  of  spill  site 

VMUNI 

Real 

— 

3 

molar  volume  of  oil  ft  /mol. 

SOLUNI 

Real 

— 

3 

solubility  of  fresh  oil  lbs/ft 

CEVP 

Real 

— 

coefficient  C  of  evaporation 
characteristics  of  oil 

TOEVP 

Real 

— 

boiling  point  temperature  of  oil 

(°K) 

If  you  define 

a  value 

of  less 

than  1.0  for  TOEVP  the  program  defines 

the 

evaporation  characteristics,  using  fitted  curves.  Therefore,  the  input 
values  of  CEVP  and  TOEVP  have  no  influence  on  computations  although  they  are 
read. 

Block  2  —  wind  and  environmental  temperature 
Card  1  (1  card  for  each  oil  spill  model  time  step) 
example: 

10.0  270.0  50.0 

/  Variable  /  Type  and  /  Column  /  Definition  / 


Name 

Length 

Number 

VWMAG 

Real 

— 

wind 

speed  (ft/s) 

THETA 

Real 

— 

wind 

from 

direction.  Clockwise  angle  measured 
north  in  degrees,  ex.,  wind  out  of 

west 

=  270° 

TENVF 

Real 

— 

o_ 

air  temperature  in  F 

II. 2  Input  Adjustments 

For  a  river  which  already  has  the  necessary  input  files,,  very  little 
has  to  be  modified  to  run  the  model  under  different  conditions,  i.e.  new 
river  discharge,  different  oil  properties,  new  spill  location  etc. 
Conditions  that  are  most  likely  to  require  modificat.on  is  cited  below  with 
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some  guidelines  and  suggested  values  for  input.  No  attempt  is  made  to 
explain  the  formatting  of  the  data  changes  although  references  are  made  to 
the  previous  section  "Create  a  Data  File"  concerning  where  the  change  is  to 
be  made. 

Velocity 

Assigning  velocities  to  boxes  has  some  dependency  on  the  variable  KINTM 
(DETRGEO,  Block  1,  Card  2).  As  KINTM  increases.  more  velocity 
interpolations  are  made  between  cross  sections.  If  the  cross  sections  are 
spaced  far  apart,  KINTM  should  be  in  the  range  of  5-8.  otherwise  KINTM  can 
be  5  or  less.  The  problem  with  using  too  small  a  value  of  KINTM  is  that 
more  grid  boxes  will  end  up  without  assigned  velocities  after  the 
interpolation  stage.  They  will  be  assigned  a  velocity  based  on  their 
neighboring  boxes.  This  is  less  accurate  than  assigning  a  velocity  based  on 
interpolation  between  two  cross  sections.  The  target  should  be  to  get  as 
many  boxes  as  you  can  in  the  former  stage.  On  the  other  hand  a  large  value 
of  KINTM  will  use  more  computing  time. 

Another  factor  which  affects  the  assigning  of  velocities  to  grid  boxes 
is  the  number  of  streamtubes  selected.  The  choice  of  the  number  of 
streamtubes  (NSTUBE,  DETRGEO,  Block  2,  Card  1)  depends  upon  the  amount  of 
computer  time  available  and  the  accuracy  desired.  A  river  with  highly 
irregular  cross  sections  (versus  nearly  rectangular)  or  a  desired  high 
degree  of  accuracy  in  velocity  computation  will  require  the  use  of  more 
streamtubes . 

Stage  Discharge 

Stage  and  discharges  (DETR.FLW,  Block  2,  Card  1)  in  river  branches  are 
unlikely  tc  remain  constant  over  time.  Therefore  this  information  will 
require  updating  as  the  need  arises.  The  one-dimensional  unsteady  flow 
model  can  be  used  to  obtain  this  information. 
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Oil  Spill  Parameters 

The  oil  spill  parameters  (DETR.SPL,  Block  1,  Card  1,2, 3, 4)  will  require 
the  most  modification  from  spill  to  spill.  Each  spill  will  have  its  own 
simulation  time,  simulation  time  step,  printing  options,  number  of 
particles,  volume,  physical  properties,  and  location,  so  it  will  be 
necessary  to  adjust  this  data  each  time  the  simulation  is  done. 

Suggested  guidelines  for  parameters: 

NTOTAL  is  at  1  east  500,  maximum  of  1000  is  possible  in  the  current 
version.  The  larger  number  will  give  a  smoother  result  at  the  expense  of 
longer  execution  time. 

The  time  step  suggested  for  SPILDT  is  900  secs  (15  mins.).  However, 
this  does  not  suit  all  situations.  An  example  is  a  spill  occurring  near  a 
narrow  bend.  In  this  case  a  smaller  value  for  SPILDT  is  needed.  A  large 
value  for  SPILDT  under  these  situations  will  lead  to  ur.oalistic  results. 
On  a  different  situation,  where  a  spill  occurs  in  a  fairly  straight  and  wide 
section  of  the  river,  one  may  use  a  larger  val ue  for  SPILDT  to  speed  up 
computation.  This  is  a  situation  where  the  user  is  willing  to  sacrifice 
accuracy  to  obtain  results  quickly. 

In  the  absence  of  data,  the  following  values  may  be  used. 


SPGOIL 

=  0.7  to  0,98 

ANIU 

=  1.411E-5,  ft 

SIGMA 

=  2.06E-3,  lbs 

AK2I 

=  1.14 

AK2V 

=  0.98 

AK2T 

=  1.6 

AKC10 

=  1.39 

AKC20 

-  1.39 

ACK30 

-  1.43 
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VMNUI  =  0. 7063E-2  ft3/mol 

SOLUNI  =  0. 1873E-2  lbs/ft3 

Wind  Data 

The  computer  model  reads  in  wind  data  (DETR.SPL,  Block  2,  Card  1)  at 
each  time  step  of  the  simulation.  This  allows  for  forecasted  wind  speed  and 
direction  to  be  utilized  by  the  model. 

III. 3  Sample  Input  Data  Files 

Sample  data  files  included  in  this  section  are: 

1.  STCL.BND  (Shoreline  half  life  data  file  for  St.  Clair  River) 

2.  LDETR.FLW  (Flow  data  for  Detroit  River) 

3.  LDETR.GEO  (Geometric  data  for  Detroit  River) 

4.  DETR.ICE  (This  file  has  the  ice  region  information.  The  file  is 
needed  even  when  the  model  is  run  for  open  water  conditions.  Two 
samples  are  listed  here;  one  corresponds  to  open  water  and  the 
second  one  to  when  there  is  one  ice  region.  Program  allows  you  to 
have  up  to  20  regions.'' 

5.  DETR.SPL  (Spill  information  for  Detroit  River) 
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File  STCL.BND 

(This  is  the  shoreline  half-life  data  file  for  St.  Clair  River.  STCL.BND  is 
illustrated  here  instead  of  DETR.BND  because  DETR.BND  is  not  very  descriptive.) 
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File  DETR.FLW 

(This  is  the  flow  data  file  for  medium  flow  conditions  in  Detroit  River  for 
open  water  conditions.) 
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File  DETR.GEO 

(This  is  the  geometric  data  file  for  the  Detroit  River) 
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File  DETR.GEO  (cone.) 
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File  DETR.GEO  (cont.) 
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30 

139 

30 

H7 

16 

113 

T7 

141 

16 

111 

17 

144 

13 

116 

13 

146 

19 

146 

36 

147 

1<? 

14S 

19 

143 

36 

143 

42 

163 

43 

161 

36 

164 

37 

165 

■77 

145 

38 

165 

41 

165 

42 

165 

43 

166 

44 

169 

38 

167 

39 

167 

43 

167 

44 

17! 

15 

172 

44 

173 

14 

173 

45 

174 

11 

139 

31 

140 

30 

140 

31 

141 

32 

142 

t  0 

.‘A 

144 

34 

145 

16 

145 

19 

145 

19 

145 

7C 

•J.  J 

143 

20 

149 

19 

162 

36 

162 

39 

162 

42 

164 

41 

164 

42 

164 

43 

164 

41 

165 

36 

165 

44 

166 

37 

166 

33 

166 

42 

166 

43 

168 

39 

168 

43 

169 

40 

170 

40 

171 

44 

174 

45 

175 

45 
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File  DETR.ICE 

(This  file  can  he  used  for  any  river  if  open  water  conditions  exist.) 


(1,035  0.34 

0 


File  DETR.ICE 

(This  file  shows  the  data  arrangement  when  there  is  an  ice  region  in  the  river.) 


0,035  0.84  • 

1 

?  19  122  21 
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File  DETR.SPL 

(This  is  the  spill  information  file  for  the  Detroit  Rivet) 


No.  2  Fuel  Oil 

6.0  1  0  0  1  0  10.  -1.0 

500  10000.  900.  0.84  1.4UE-5  2.06 £-3  1.14  0.98  1.6  1.39  1.39  1.43 

40000,  6000.  . 7063E-02  .1873E-02  7.88  465.0 

5.866  270.0  50.0 

5,366  270.0  50.0 

5.866  270.0  50,0 

5.866  270,0  50.0 

5.866  270.0  50.0 

5.806  270,0  50.0 

5.866  270.0  50.0 

5.866  270.0  50.0 


5,866 

270.0 

50.0 

5.866 

270,0 

50.0 

5,866 

270.0 

50.0 

5.866 

270,0 

50.0 

5.866 

270.0 

50.0 

5.866 

270.0 

50,0 

5,366 

270.0 

50,0 

5.866 

270.0 

50.0 

5.866 

270.0 

50.0 

5.866 

270.0 

50.0 

5.866 

270,0 

50.0 

5.866 

270.0 

50.0 

5.366 

270.0 

50.0 

5.866 

270.0 

50.0 

5.866 

270,0 

50.0 

5.866 

270.0 

50.0 

5.366 

270.0 

50,0 

5.366 

270,0 

50,0 

5.866 

270.0 

50.0 
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CHAPTER  IV 
MODEL  OUTPUT 

Output  from  the  model  can  be  directed  to  different  devices,  i.e. 
console,  printer  and  files. 

Included  in  this  chapter  are: 

1.  The  output  generated  as  a  file  by  subroutine  PRINT  for  St.  Clair  River. 

2.  The  graphical  output  of  velocity  distribution  corresponding  to  low  flow 
(Q  ~  130,000  cfs)  in  St.  Clair  River  as  generated  by  program 
VELDIS.GRP.  Input  data  for  these  plots  were  generated  by  ROSS. 

3.  A  sample  computer  printout  generated  by  an  instantaneous  spill  of  5000 
gallons  of  No.  2  fuel  oil.  Wind  is  2  mph  from  West.  Air  temperature .= 
70°F. 

4.  Graphical  output  that  corresponds  to  above  mentioned  simulation. 
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1 


freaassaasseasaaniHUseaiitssssssaanamasaasanaaaa^tsasaeinnsaitasesamnitinaaa 

HUMtxioMmimmxxnnmixminimDimmiiuinmiimmu, 


SIMULATION  MODEL  FOR  OIL  SPILLS  IS  RIVERS  ** 

** 

DEVELOPED  AT  -  CIVIL  4  ENVIR.  ESC.  DEPT.,  CLARE SON  ON I VERS IT?  ** 
SPONSERED  BY  -  D.S.  ARMY  CORPS  OF  ENGINEERS,  DETROIT  DISTRICT  ** 

** 

DATE  AND  TIME  OF  RUN  :  THU  SEP  26,  1965  10.36.50  ** 

•* 


GEOMETRIC  PROPERTIES  OF  RIVER 


NO.  OF  BRANCHES  IN  UNSTEADY  FLOW  MODEL  »  10 

NO.  OF  GRIDS  IN  X-DIRCTION  -  286 

GRID  SIZE  IN  ft.  «  500. 

NO.  OF  INTERPOLATIONS  BETWN  SECTIONS  «  3 


SECTIONS  IN  EACH 

BRANCH 

BRANCH 

SECTIONS 

INVOLVED 

FROM 

TO 

1 

1 

2 

2 

3 

13 

3 

14 

23 

4  4 

24 

33 

5 

34 

37 

6 

38 

41 

7 

42 

54 

8 

55 

76 

9 

77 

86 

10 

87 

96 

INFORMATION  ON  RIVER  SECTIONS 


SECTION 

Lower  bank 

intersect  ion 

Angle 

Width 

Ref  datum 

No  str 

Coed . 

Connect 

X-CORD 

Y-CORD 

(  rad) 

(ft.) 

for  depth 

tubes 

No. 

next  1st 

1 

1657.1 

8801.2 

1.334 

1929 

578.90 

10 

11 

2 

2 

2124.4 

8880.5 

1.384 

1401 

577.50 

10 

11 

3 

3 

2727.6 

8955.7 

1.479 

1019 

577.50 

10 

11 

4 

4 

3535.5 

8773.5 

1.427 

996 

577.50 

10 

11 

5 

5 

4142.4 

8645.2 

1.338 

808 

577.20 

10 

11 

6 

6 

4902,3 

8476.0 

1.661 

979 

577.40 

10 

11 

7 

7 

5756.3 

8374.3 

1.782 

1291 

577.20 

10 

11 

8 

8 

6747.7 

8636.6 

1.884 

1458 

577.40 

10 

11 

9 

9 

8305.2 

9623.1 

2.075 

1442 

577.30 

10 

11 

10 

10 

9054.2 

10231.8 

2.110 

1335 

577.20 

10 

11 

11 

11 

9562.1 

10823.5 

2.160 

1782 

577.20 

10 

11 

12 

12 

10787.6 

11865.3 

2.164 

1719 

577.20 

10 

11 

13 

13 

11230.4 

12114.5 

2.150 

1756 

577.20 

10 

11 

14 

14 

12198.4 

12440.6 

1.561 

2582 

578.25 

10 

11 

15  • 

15 

12869.2 

12384.6 

1.502 

2601 

577.00 

10 

11 

16 

16 

14185.5 

12364.6 

1.586 

2618 

577.00 

10 

11 

17 

17 

15218,0 

12383.8 

1.521 

2466 

576.90 

10 

11 

18 

18 

16695.8 

122G1.1 

. 1.334 

2061 

576.80 

10 

11 

19 

19 

17659.3 

11888.4 

1.336 

1862 

576.70 

10 

11 

20 

20 

19116.4 

11449.2 

1.226 

1773 

578.11 

10 

11 

21 

21 

20471.3 

10940.3 

1.189 

1806 

578.03 

10 

11 

22 

22 

21707.2 

10344.3 

1.121 

1942 

578.01 

10 

11 

23 

23 

22938.9 

9429.6 

1.010 

2028 

577.96 

10 

11 

24 

24 

24484.8 

8328.0 

1.035 

2103 

577.91 

10 

11 

25 

90 


25 

27014.5 

7034.9 

1.261 

26 

28357.9 

6572.7 

1.460 

27 

30181.4 

6104.7 

1.401 

28 

31991.9 

5981.3 

1.486 

29 

33275.0 

6075.3 

1.539 

30 

35026.1 

6050.9 

1.560 

31 

36112.8 

6037.8 

1.559 

32 

38110.1 

5822.8 

1.557 

33 

41859.1 

5235.6 

1.758 

34 

44008.9 

5126.0 

1.614 

35 

46628.1 

5270.0 

1.773 

36 

<*9075.2 

56/0.2 

1.832 

37 

51118.5 

6422.0 

1.840 

38 

43470.6 

8575.7 

2.008 

39 

45877.8 

9273.2 

1.683 

40 

48178.3 

9084.9 

1.564 

41 

50466.6 

8963.7 

1.713 

42 

53074.5 

6858.2 

1.726 

43 

55524.8 

7870.6 

1.702 

44 

57538.3 

8596.4 

1.784 

45 

58289.1 

8843.8 

1.713 

46 

59233.9 

9127.0 

1.663 

47 

60694.0 

9215.6 

1.649 

48 

61790.0 

9223.5 

1.617 

49 

63184.9 

9122.9 

1.556 

50 

64699.0 

8770.7 

1.429 

51 

66265.6 

8390.1 

1.396 

52 

67608.9 

8095.2 

1.438 

53 

68695.2 

8109.0 

1.492 

54 

69944.2 

8199.7 

1.566 

55 

71124.4 

8504.7 

1.633 

56 

72084.0 

8834.2 

1.664 

57 

73475.3 

8991.3 

1.689 

58 

74713.6 

9179.9 

1.711 

59 

75893.3 

9490.0 

1.859 

60 

77210.9 

10295.0 

1.991 

61 

79155.4 

11809.9 

2.15  . 

62  . 

80228.7 

12565.7 

2.125 

63 

81605.8 

13436.2 

2.112 

64 

83527.2 

14610.7 

1.969 

65 

85018.3 

15230.4 

1.933 

66 

86346.9 

15929.5 

1.912 

67 

87968.7 

16466.3 

1.925 

68 

89593.0 

17077.4 

1.778 

69 

91777.0 

17153.1 

1.596 

70 

93564.7 

16713.2 

1.434 

71 

94994.2 

16394.8 

1.347 

72 

97192.3 

15533.5 

1.381 

73 

99502.3 

15015.0 

1.431 

74 

102673.3 

15286.4 

1.813 

75 

104778.3 

15863.5 

1.828 

76 

106070.0 

16235.7 

1.664 

77 

107397.9 

16237.6 

1.454 

78 

111246.2 

15533.3 

1,478 

79 

113869.5 

14790.8 

1.479 

80 

116941.9 

14816.9 

1.525 

81 

118933.9 

14945.5 

1.515 

82 

120905.9 

14707.9 

1.516 

83 

123254.1 

14625.2 

1.559 

84 

125696.6 

14531.3 

1.605 

85 

127595.8 

14777.3 

1.672 

86 

128395.6 

14875.7 

1.776 

87 

129381.7 

15216.8 

1.797 

88 

131323.3 

15706.9 

1.812 

89 

133200.6 

16322.5 

1.799 

90 

134612.4 

16907.3 

1.776 

91 

135705.2 

16957.1 

1.771 

92 

136895.9 

17044.1 

1.698 

93 

137777.1 

17058.2 

1.617 

94 

140042.9 

17187.0 

1.671 

95 

140798.6 

17079.9 

1.613 

96 

141405.6 

16845.7 

1.342 

97 

143773.4 

15244.5 

1.203 

1979 

577.73 

10 

11 

26 

2022 

577.70 

10 

11 

27 

2191 

577.76 

10 

11 

28 

2084 

577.67 

10 

11 

29 

1909 

577.23 

10 

11 

30 

1952 

577.51 

10 

11 

31 

2037 

577 ,46 

10 

11 

32 

2257 

577.37 

10 

11 

33 

3506 

577.41 

10 

12 

34 

2547 

577.35 

7 

11 

35 

1601 

577.30 

7 

11 

36 

1644 

577.25 

7 

11 

37 

1903 

577.20 

7 

21 

42 

1168 

577.35 

3 

11 

39 

1169 

577.30 

3 

n 

40 

1203 

577.25 

3 

11 

41 

1205 

577.20 

*3 

21 

42 

3608 

577.20 

10 

11 

43 

3081 

577.26 

1  If 

11 

44 

2613 

577.14 

10 

11 

45 

2385 

576.93 

10 

11 

46 

2074 

576.93 

10 

-4  11 

47 

2138 

576.94 

10 

11 

48 

2352 

576.90 

10 

11 

49 

2561 

576.83 

10 

11 

50 

3078 

576.80 

10 

11 

51 

3392 

576.83 

10 

11 

52 

3498 

576.75 

10 

11 

53 

3418 

576.80 

10 

11 

54 

3338 

576.80 

10 

11 

55 

2922 

576.75 

10 

11 

56 

2532 

576.73 

10 

11 

57 

2302 

576.72 

10 

11 

58 

2185 

576.71 

10 

11 

59 

2087 

576.68 

10 

11 

60 

1704 

576.65 

.  10 

11 

61 

■  99  ' 

576.66 

10 

11 

62 

f  >55 

576.58 

10 

11 

63 

1  _0 

576.58 

10 

11 

64 

/  4 

576.50 

10 

11 

65 

1593 

576.50 

lb 

11 

66 

1666 

576.46 

10 

11 

67 

1935 

576.43 

10 

a 

68 

1910 

576.32 

10 

11 

69 

2376 

576.37 

10 

11 

70 

2330 

576.35 

10 

11 

71 

2727 

576.33 

10 

11 

72 

2819 

576.35 

10 

11 

73 

2996 

576.12 

10 

11 

74 

2912 

576.14 

10 

11 

75 

3100 

576. 2C 

10 

11 

76 

3293 

576.27 

10 

11 

77 

3306 

575.96 

10 

11 

78 

3935 

575.86 

10 

11 

79 

4286 

575.86 

10 

11 

80 

2863 

575.76 

10 

11 

81 

2623 

575.74 

10 

11 

82 

2744 

575.70 

10 

11 

83 

2425 

575.65 

10 

11 

84 

2349 

575.62 

10 

11 

85 

2041 

575.58 

10 

11 

86 

2070 

575.57 

10 

11 

87 

2008 

575.53 

10 

11 

88 

2180 

575.51 

10 

11 

89 

2296 

575.27 

10 

11 

90 

2269 

575.20 

10 

11 

9! 

2614 

575.21 

10 

11 

92 

2582 

575.16 

10 

11 

93 

2246 

575.12 

10 

11 

94 

2371 

575.12 

10 

11 

95 

2670 

575.14 

10 

11 

96 

2931 

575.12 

10 

11 

97 

3973 

575.04 

10 

11 

98 

$1 


Geoaetry  of  X-Section» 


SCTN  Distance  and  Depth  (ft.)  in  pairs  of  data 


1 

0.: 

0.0 

212.: 

41.6 

280.: 

41.9 

354.: 

33.7 

906.: 

34.5 

1230.: 

77.8 

1377.: 

23.3 

1625.: 

8.4 

1929.: 

0.0 

2 

0.: 

0.0 

185.: 

11.0 

343.: 

38.4 

451.: 

31.8 

600.: 

31.5 

806 . : 

39.2 

839.: 

51.7 

998.: 

68.6 

1041.: 

60.3 

ill}. : 

41.9 

1245.: 

6.7 

1401.: 

0.0 

3 

0.: 

0.0 

70.: 

24.0 

241.: 

41.8 

345.: 

37.6 

568.: 

66.6 

936.: 

5.8 

1020.: 

0.0 

4 

0.: 

0.0 

73.: 

7.5 

141.: 

17.6 

157.: 

37.5 

284.: 

65.4 

350.: 

65.9 

420.: 

61.0 

525.: 

60.6 

617.: 

47.4 

845.: 

7.3 

996.: 

0.0 

5 

0.: 

0.0 

18.: 

10.1 

76.: 

17.7 

116.: 

33.0 

266.: 

45.0 

362.: 

46.0 

465.: 

56.5 

529.: 

51.9 

619.: 

42.1 

710.: 

24.1 

809.: 

0.0 

6 

0.: 

0.0 

12.: 

27.6 

49.: 

35.6 

144.: 

39.7 

186.: 

38.4 

285.: 

43.8 

402.: 

39.5 

470.: 

41.8 

677  .: 

41.6 

741.: 

37.7 

817.: 

41.6 

980.: 

0.0 

7 

0.: 

0.0 

11.: 

19.4 

56.: 

33.4 

141.: 

43.3 

223.: 

38.5 

310.: 

42.6 

367.: 

42.0 

502.: 

33.6 

575.: 

34.0 

820.: 

54.5 

873.: 

54.5 

909.: 

51.2 

977.: 

53.3 

1169.: 

26.5 

1227.: 

24.2 

1292.: 

0.0 

8 

0.: 

0.0 

54.: 

23.9 

135.: 

30.8 

179.: 

47.6 

462.: 

41.0 

590.: 

34.5 

895.: 

51.9 

1039.: 

43.7 

1178.: 

30.0 

1413.: 

33.5 

1458.: 

0.0 

9 

0.: 

0.0 

127.: 

44.7 

384.: 

53.4 

561.: 

49.5 

653.: 

53.4 

798.: 

54.4 

956.: 

43.5 

1062.: 

25.4 

1158.: 

26.3 

1276.: 

7.7 

1443.: 

0.0 

10 

0.: 

0.0 

10.: 

14.3 

155.: 

46.4 

272.: 

43.4 

444.: 

49.8 

537.: 

46.4 

855.: 

46.3 

995.: 

32.8 

1079.: 

31.9 

1336.: 

0.0 

11 

0.: 

0.0 

84.: 

35.1 

219.: 

40.4 

299.: 

38.4 

524.: 

49.3 

720.: 

44.3 

930.: 

46.4 

1147.: 

27.9 

1535  .- 

27.0 

1613.: 

19.5 

1772.: 

9.0 

1782.: 

0.0 

. 

• 

n 

0.: 

0.0 

183.: 

36.1 

397.: 

33.3 

611.: 

41.0 

781.: 

41.9 

1312.: 

33.0 

1567.: 

23.3 

1719.: 

0.0 

13 

0.: 

0.0 

25.: 

20.3 

146.: 

32.3 

382.: 

36.8 

727.: 

41.1 

1009.: 

33.6 

1441.: 

30.1 

1749.: 

1.7 

1756.: 

0.0 

14 

0.: 

0.0 

127.: 

23.0 

639.: 

30.0 

1203.: 

35.8 

1432.: 

30.8 

1730.: 

36.5 

1956.: 

30.4 

2383.: 

33.1 

2486.: 

29.6 

2583 . : 

0.0 

13 

0.: 

0.0 

97.: 

26.7 

280.: 

32.1 

420.: 

29.1 

660.: 

36.3 

778.: 

30.7 

1119.: 

28.3 

1672.: 

34.0 

1842.: 

36.0 

2031.: 

31.7 

2275.: 

46.0 

2368.: 

19.4 

2549.: 

14.7 

2602.: 

0.0 

16 

0.: 

0.0 

180.: 

24.8 

384.: 

33.4 

582.: 

28.5 

720.: 

34.7 

840.: 

29.0 

1662.: 

29.5 

1794.: 

26.5 

2225.: 

39.5 

2419.: 

24.2 

2531.: 

18.6 

2618.: 

0.0 

17 

0.: 

0.0 

8.: 

27.5 

90.: 

31.5 

299.: 

27.9 

477.: 

39.7 

619.: 

29.1 

982.: 

36.6 

1556.: 

33.1 

1807.: 

37.6 

2123.: 

38.1 

2375.: 

17.8 

2466.: 

0.0 

18 

0.: 

0.0 

240.: 

30.1 

430.: 

31.9 

489.: 

37.9 

532.: 

31.6 

883.: 

28.9 

1134.: 

32.5 

1345.: 

39.9 

1763.: 

35.8 

1922.: 

25.4 

2055.: 

22.3 

2062.: 

0.0 

19 

0.: 

0.0 

103.: 

8.9 

122.: 

19.7 

241.: 

30.7 

711.: 

32.2 

1141.: 

28.3 

1443.: 

32.4 

1580.: 

27.1 

1724.: 

28.8 

1776.: 

24.2 

1853.: 

27.1 

1863.: 

0.0 

20 

0.: 

0.0 

54.: 

13.1 

292.: 

35.4 

682.: 

30.8 

1061.: 

39.3 

1201.: 

36.8 

1396.: 

47.3 

1773.: 

0.0 

21 

0.: 

0.0 

237.: 

32.5 

731.: 

38.4 

930.: 

35.0 

1176.: 

41.4 

1692.: 

23.6 

1806.: 

0.0 

22 

0.: 

0.0 

11.: 

10.0 

174,: 

31.6 

1203.: 

37.0 

1581.: 

32.6 

1757.: 

19.8 

1848.: 

4.0 

1943.: 

0.0 
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GRID  CONFIGURATION  tad  BOUNDARY  TYPES  OF  SCHEMATIZED  RIVER 


Y  CRID  OF 


CRID 

Bank  1 

Bank  2 

Bank  3 

Bank  4 

Bank  1 

Bank  2 

1 

17 

28 

0 

0 

.1591 

.1591 

2 

18 

26 

0 

0 

.1591 

.1591 

3 

18 

24 

0 

0 

.1591 

.1591 

4 

19 

23 

0 

0 

.1591 

.0000 

5 

19 

21 

0 

0 

.1591 

.9948 

6 

19 

20 

0 

0 

.0000 

.9948 

7 

19 

20 

0 

0 

.0000 

.9948 

8 

18 

19 

0 

0 

.9948 

.9948 

9 

18 

19 

0 

0 

.9948 

.9948 

10 

18 

19 

0 

0 

.9948 

.9948 

11 

18 

i  > 

0 

0 

•  554C 

.3948 

REJECTION  RATE  PER  TIME  STEP 
B«nk  3  Bank  A 


95 


12 

18 

20 

0 

0 

.9948 

.9948 

13 

18 

20 

0 

0 

.9948 

.9948 

14 

18 

20 

0 

0 

.9948 

.9948 

15 

19 

21 

0 

0 

.9948 

.9948 

16 

19 

22 

0 

0 

.9948 

.9948 

17 

20 

24 

0 

0 

.9948 

.9948 

18 

21 

26 

0 

0 

.9948 

.  .0000 

19 

22 

30 

27 

28 

.9948 

.9948 

20 

23 

30 

27 

27 

.9948 

.9948 

21 

24 

30 

0 

0 

.9948 

.0000 

22 

25 

30 

0 

0 

.9948 

.0000 

23 

25 

30 

0 

0 

.9948 

.0000 

24 

26 

30 

0 

0 

.9948 

.9948 

25 

26 

30 

0 

0 

.9948 

.9948 

26 

26 

30 

0 

0 

.9948 

.9948 

27 

26 

30 

0 

0 

.9948 

.9948 

28 

26 

30 

0 

0 

.1591 

.9948 

29 

26 

30 

0 

0 

.1591 

.9948 

30 

26 

30 

0 

0 

.1591 

.9948 

31 

26 

29 

0 

0 

.1591 

.9948 

32 

26 

29 

0 

0 

.1591 

.9948 

33 

26 

29 

0 

0 

.1591 

.9948 

34 

25 

28 

0 

0 

.1591 

.9948 

35 

25 

28 

0 

0 

.1591 

.9948 

36 

25 

28 

0 

0 

.1591 

.9948 

37 

24 

27 

0 

0 

.1591 

.9948 

38 

24 

27 

0 

0 

.1591 

.1591 

39 

24 

26 

0 

0 

.1591 

.1591 

40 

23 

26 

0 

0 

.1591 

.1591 

41 

23 

26 

0 

0 

.1591 

.1591 

42 

23 

26 

0 

0 

.0072 

.1591 

43 

22 

25 

0 

0 

.0072 

.0000 

44 

22 

25 

0 

0 

.0072 

.0000 

45 

21 

24 

0 

0 

.0072 

.0000 

4* 

20 

24 

A 

0 

.0000 

.0000 

47 

19 

23 

0  . 

0 

.0000 

.0000 

48 

19 

23 

0 

0 

.0000 

.0000 

49 

18 

22 

0 

0 

.0072 

.9948 

50 

17 

21 

0 

0 

.0072 

.9948 

51 

17 

20 

0 

0 

.0072 

.9948 

52 

16 

20 

0 

0 

.1591 

.9948 

53 

16 

19 

0 

0 

.1591 

.9948 

54 

15 

19 

0 

0 

.15°1 

.0000 

55 

15 

18 

0 

0 

.1591 

.9948 

56 

15 

18 

0 

0 

.1591 

.9948 

57 

14 

17 

0 

0 

.1591 

.9948 

58 

14 

17 

0 

0 

.1591 

.1591 

59 

14 

17 

0 

0 

.1591 

.1591 

60 

13 

17 

0 

0 

.1591 

.1591 

61 

13 

17 

0 

0 

.1591 

.1591 

62 

13 

16 

0 

0 

.1591 

.1591 

63 

13 

16 

0 

0 

.1591 

.1591 

64 

13 

16 

0 

0 

.1591 

.1591 

65 

13 

16 

0 

0 

.1591 

.1591 

66 

13 

16 

0 

0 

.9948 

.1591 

67 

13 

16 

0 

0 

.9948 

.1591 

68 

13 

16 

0 

0 

.9948 

.1591 

69 

13 

16 

0 

0 

.9948 

.1591 

70 

13 

16 

0 

0 

.9948 

.1591 

71 

13 

16 

0 

0 

.9948 

.1591 

72 

13 

16 

0 

0 

.9948 

.1591 

73 

13 

16 

0 

0 

.9948 

.1591 

74 

13 

16 

0 

0 

.9948 

.1591 

75 

13 

16 

0 

0 

.0072 

.1591 

76 

13 

16 

0 

0 

.0072 

.1591 

77 

13 

!6 

ly 

0 

.0072 

.0072 

78 

13 

16 

0 

0 

.0072 

.0072 

79 

13 

16 

0 

0 

.0072 

.0072 

80 

12 

16 

0 

0 

.0000 

.0072 

81 

12 

17 

0 

0 

.1591 

.1591 

82 

12 

17 

0 

0 

.1591 

.1591 

83 

12 

17 

0 

0 

.1591 

.1591 

96 


84 

12 

18 

0 

0 

.1591 

.1591 

85 

12 

18 

0 

0 

.9948 

.1591 

86 

11 

19 

0 

0 

.9948 

.1591 

87 

11 

19 

16 

17 

.9948 

.1591 

.1591 

.1591 

88 

11 

20 

16 

17 

.9948 

.0072 

.1591 

.0072 

89 

11 

20 

16 

18 

.9949 

.0072 

.ft0?2 

.0072 

90 

11 

21 

15 

18 

.1591 

.0072 

.0072 

.0072 

91 

11 

21 

15 

18 

.1591 

.0072 

.0072 

.0072 

92 

11 

21 

15 

19 

.0072 

.0072 

.0072 

.0072 

93 

11 

21 

15 

19 

.0072 

.0072 

.0072 

.0072 

94 

12 

21 

15 

19 

.0072 

.0072 

.1591 

.0072 

95 

12 

21 

15 

18 

.0072 

.0072 

.1591 

.0072 

96 

12 

20 

16 

18 

.1591 

.0072 

.1591 

.0072 

97 

12 

20 

16 

18 

.1591 

.1591 

.1591 

.0072 

98 

13 

20 

16 

18 

.1591 

.1591 

.1591 

.0072 

99 

13 

20 

16 

18 

.1591 

.1591 

.1591 

.0072 

100 

13 

20 

17 

18 

.1591 

.1591 

.1591 

.0072 

101 

13 

20 

17 

18 

.1591 

.*591 

.1591 

.1591 

102 

14 

20 

18 

18 

.0072 

.1591 

.1591 

.1591 

103 

14 

21 

18 

18 

.0072 

.1591 

.1591 

.1591 

104 

14 

21 

18 

18 

.0072 

.0072 

.1591 

.1591 

105 

14 

21 

18 

18 

.0072 

.0072 

.1591 

.1591 

106 

14 

21 

0 

0 

.0072 

.0072 

107 

15 

21 

0 

0 

.0072 

.0072 

108 

15 

21 

0 

0 

.0072 

.0072 

109 

16 

21 

0 

0 

.9948 

.0072 

110 

16 

21 

0 

0 

.9948 

.0072 

111 

16 

22 

0 

0 

.0072 

.0072 

112 

17 

22 

0 

0 

.0072 

.0072 

113 

17 

22 

0 

0 

.0072 

.0072 

114 

18 

22 

0 

0 

.0072 

.0072 

115 

18 

22 

0 

0 

.0072 

.0072 

116 

18 

22 

0 

0 

.0072 

.1591 

117 

19 

22 

0 

0 

.0072 

.1591 

118 

19 

.  22 

0 

0 

.0072 

.1591 

119 

19 

22 

0 

0 

.0072 

.1591 

120 

19 

22 

0 

0 

.0072 

.1591 

121 

19 

22 

0 

0 

.0072 

.1591 

122 

19 

23 

0 

0 

.0072 

.0072 

123 

19 

23 

0 

0 

.0072 

.0072 

124 

19 

23 

0 

0 

.0072 

.0072 

125 

19 

23 

0 

0 

.0072 

.  .0072 

126 

19 

23 

0 

0 

.0072 

.0000 

127 

19 

23 

0 

0 

.0072 

.0000 

128 

19 

24 

n 

0 

.0072 

.0000 

129 

19 

24 

0 

0 

.0072 

.0000 

130 

19 

24 

0 

0 

.0072 

.1591 

131 

18 

23 

0 

0 

.0072 

.1591 

132 

18 

23 

0 

0 

.0072 

.1591 

133 

18 

23 

0 

0 

.0072 

.1591 

134 

18 

23 

0 

0 

.0072 

.1591 

135 

17 

23 

0 

0 

.0072 

.1591 

136 

17 

23 

0 

0 

.0072 

.1591 

137 

17 

23 

0 

0 

.0072 

.1591 

138 

17 

23 

0 

0 

.9948 

.1591 

139 

17 

23 

0 

0 

.9948 

.1591 

140 

17 

23 

0 

0 

.9948 

.1591 

141 

17 

23 

0 

0 

.9948 

.1591 

142 

18 

23 

0 

0 

.9948 

.0000 

143 

18 

23 

0 

0 

.9948 

.9948. 

144 

18 

23 

0 

0 

.9948 

.9948 

145 

19 

23 

0 

0 

.9948 

.9948 

146 

19 

23 

0 

0 

.9948 

.9948 

147 

19 

23 

0 

0 

.9948 

.9948 

148 

19 

23 

0 

0 

.0072 

.1591 

149 

19 

23 

0 

0 

.0072 

.1591 

150 

19 

23 

0 

0 

.0072 

.1591 

151 

20 

23 

0 

0 

.0072 

.1591 

152 

20 

23 

0 

0 

.0072 

.1591 

153 

20 

24 

0 

0 

.0072 

.1591 

154 

21 

24 

0 

0 

.00/2 

.1591 

155 

22 

25 

0 

0 

.0072 

.1591 

97 


196 

22 

25 

0 

0 

.9948 

.1591 

157 

23 

26 

0 

0 

.9948 

.1591 

158 

24 

27 

0 

0 

.9948 

.1591 

159 

25 

28 

0 

0 

.9948 

.9948 

160 

25 

29 

0 

0 

.9948 

.9948 

161 

26 

29 

0 

0 

.9948 

.9948 

162 

27 

30 

0 

0 

.9948 

.9948 

163 

27 

30 

0 

0 

.0072 

.9948 

164 

28 

31 

0 

0 

.0072 

.9948 

165 

29 

32 

0 

0 

.0072 

.9948 

166 

29 

32 

0 

0 

.0072 

.9948 

167 

30 

33 

0 

0 

.0072 

.9948 

168 

31 

33 

0 

0 

.0072 

.9948 

169 

31 

33 

0 

0 

.0072 

.9948 

170 

31 

34 

0 

0 

.0072 

.9948 

171 

32 

34 

0 

0 

.0072 

.9948 

172 

32 

35 

0 

0 

.0072 

.9948 

173 

33 

35 

0 

0 

.0072 

.9948 

174 

33 

36 

0 

0 

.0072 

.9948 

175 

34 

36 

0 

0 

.0072 

.9948 

176 

34 

37 

0 

0 

.0072 

.9948 

177 

34 

37 

0 

0 

.0072 

.9948 

178 

39 

37 

0 

0 

.0072 

.9948 

179 

35 

38 

0 

0 

.0072 

.1593 

180 

35 

38 

0 

0 

.9948 

.1591 

181 

35 

38 

0 

0 

.9948 

.1591 

182 

35 

39 

0 

0 

.9948 

.1591 

183 

35 

39 

0 

0 

.9948 

.1591 

18u 

35 

39 

0 

0 

.0072 

.1591 

185 

35 

39 

0 

0 

.0072 

.1591 

186 

35 

39 

0 

0 

.0072 

.1591 

187 

35 

39 

0 

0 

.0072 

.1591 

188 

34 

39 

0 

0 

.0072 

.1591 

189 

34 

39 

0 

0 

.0072 

.1591 

190 

34 

39 

0 

0 

.0072 

.1591 

191 

34 

38 

0 

0 

.0072 

.1591 

192 

33 

38 

0 

0 

.0072 

.1591 

193 

33 

38 

0 

0 

.0072 

.1591 

194 

33 

37 

0 

0 

.0072 

.1591 

195 

32 

37 

0 

0 

.0072 

.1591 

196 

32 

'  37 

0 

0 

.0072 

.1591 

197 

32 

37 

0 

0 

.0072 

.1591 

198 

31 

36 

0 

0 

.1591 

.1591 

199 

31 

36 

0 

0 

.1591 

.1591 

200 

31 

36 

0 

0 

.1591 

.1591 

201 

31 

36 

0 

0 

.1591 

.1591 

202 

31 

36 

0 

0 

.1591 

.1591 

203 

31 

36 

0 

0 

.1591 

.1591 

204 

31 

36 

0 

0 

.9948 

.1591 

205 

31 

36 

0 

0 

.9948 

.1591 

206 

32 

37 

0 

0 

.9948 

.1591 

207 

32 

37 

0 

0 

.9948 

.1591 

208 

32 

37 

0 

0 

.9948 

.1591 

209 

32 

38 

0 

0 

.9948 

.1591 

210 

33 

38 

0 

0 

.9948 

.1591 

211 

33 

39 

0 

0 

.9948 

.1591 

212 

33 

39 

0 

0 

.9948 

.1591 

213 

33 

39 

0 

0 

.9948 

.1591 

214 

33 

39 

0 

0 

.9948 

.1591 

215 

33 

39 

0 

0 

.9948 

.1591 

216 

33 

39 

0 

0 

.9948 

.1591 

217 

33 

39 

0 

0 

.9948 

.1591 

218 

33 

39 

0 

0 

.9948 

.1591 

219 

33 

39 

0 

0 

.9948 

.1591 

22u 

33 

39 

0 

0 

.9948 

.1591 

221 

32 

39 

0 

0 

.9948 

.1591 

222 

32 

39 

0 

0 

.9948 

.1591 

223 

32 

39 

0 

0 

.9948 

.1591 

224 

32 

39 

0 

0 

.9948 

.1591 

225 

32 

39 

0 

0 

.9943 

.9948 

226 

32 

39 

37 

37 

.9948 

.9948 

227 

31 

39 

36 

37 

.9948 

.9948 

.9948 

.9948 
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228 

31 

39 

35 

229 

30 

38 

35 

230 

30 

38 

35 

231 

30 

37 

0 

232 

30 

36 

0 

233 

31 

36 

0 

234 

31 

36 

0 

235 

31 

36 

0 

236 

31 

36 

0 

237 

31 

36 

0 

238 

31 

36 

C 

239 

31 

35 

0 

240 

31 

35 

0 

241 

30 

35 

0 

242 

30 

35 

0 

243 

30 

35 

0 

244 

30 

35 

0 

245 

30 

35 

0 

246 

30 

34 

0 

247 

30 

34 

0 

248 

30 

34 

0 

249 

30 

34 

0 

250 

30 

34 

0 

251 

30 

34 

0 

252 

30 

34 

0 

253 

30 

34 

0 

254 

30 

34 

0 

255 

31 

34 

0 

256 

31 

34 

0 

25? 

31 

34 

0 

258  . 

31 

34 

0 

259 

31 

34 

0 

260 

31 

35 

0 

261 

32 

35 

0 

262 

32 

35 

0 

263 

32 

36 

0 

264 

33 

36 

0 

265 

33 

37 

0 

266 

33 

37 

0 

267 

34 

38 

0 

268 

34 

38 

0 

269 

34 

38 

0 

270 

35 

38 

0 

271 

35 

39 

0 

272 

35 

39 

0 

273 

35 

40 

0 

274 

35 

39 

0 

275 

35 

39 

0 

276 

35 

39 

0 

277 

35 

39 

-  0 

278 

35 

39 

0 

279 

35 

39 

0 

280 

35 

39 

0 

281 

35 

39 

0 

282 

35 

40 

0 

283 

35 

40 

0 

284 

34 

40 

0 

285 

34 

39 

0 

286 

33 

39 

0 

37 

.0000 

.9948 

.1591 

36 

,0000 

.9948 

.1591 

36 

.0000 

.9948 

.1591 

0 

.0000 

.9948 

0 

.0000 

.0072 

0 

.0000 

.0072 

0 

.0000 

.0072  • 

0 

.0000 

.0072 

0 

.0000 

.0072 

0 

.0000 

.0072 

V 

.0000 

.0072 

0 

.0072 

.0072 

0 

.0072 

.0072 

0 

.0072 

.0072 

0 

.0072 

.0072 

0 

.0072 

.1591 

0 

.0072 

-.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0  ' 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.007  2 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.0072 

0 

.0072 

.0072 

0 

.0072 

.0072 

0 

.0072 

.0072 

0 

.9948 

.0072 

0 

.9948 

.0072 

0 

.9948 

.0072 

0 

.9948 

.0072 

0 

.9948 

.0072 

0 

.9948 

.0072 

0 

.9948 

.0072 

0 

.9948 

.0072 

0 

.9948 

.0072 

0 

.9948 

.0072 

0 

.0072 

.0072 

0 

.0072 

.0072 

0 

.0072 

.0072 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.0072 

.1591 

0 

.9948 

.1591 

0 

.9948 

.1591 

.9948 

.9948 

.9948 
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Velocity  D i si 


Fig.  11  Velocity  Distribution  in  St.  Clair  River 
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strlbutlon  In  St.  Clair  River 
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Fig.  11,  Velocity  Distribution  in  St.  Clair  River 
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Fig.  11.  Velocity  Distribution  in  St.  Clair  River 
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t  AT  I 

t  71750,,  9250.  I 

ummmnmmmm 


SIMULATION  PERIOD  =  2,0  Hrs 


Characteristics  of  spill 


No,  of  particles 
Oil  spilled 

DT  for  spill  emulation 
Specific  gravity  of  oil 
Kineaatic  Visco,  of  Mater 
Surafce  Tension 


1000 

5000,  gals  of  No.  2  Fuel  Oil 
900,  Secs, 

0,84  (API  index  =  37.0) 

0.141  IE-04  sq  ft/sec 
0.2060E-02  lbs/ft 


Spreading  Coefficients 
K2i  K2v  K2t  dO  c20  c30 

1.14  0.98  1.60  1.39  1.39  1.43 

Molar  voluse  :0,7063E-02  cu  ft/*ol 

Solubility  of  fresh  oil  ;0. 1873E-02  Ibs/cu  ft 
Viscosity  of  Oil  :  0.841bs/f t-sec 

Manning  s  Roughness  of  Ice  :  0.035 

API  option  is  not  selected  .  Evap,  constants  are  C  =  7.88 

Surface  Diffusion  -  Default  foraulation  is  used 

Tiae  step  for  river  flow  coaputation  =  2.00  Hrs 

Open  Mater  Conditions 

Flow  and  Discharge  Conditions  in  River 


Branch 

8  (cfs) 

Stage  (ft) 

1 

129980. 

574.99 

2 

129980. 

574.85 

3 

129970. 

574.54 

4 

129950. 

574.28 

5 

90916. 

573.91 

6 

38964. 

573.91 

7 

129810. 

573.60 

8 

129880. 

573.18 

9 

129810. 

572.66 

10 

129780. 

572.35 

=  465.0 
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Tise  =  0.25  Hrs  --  Kind  :eag=  2.0  sph,  dir  =270.0  deg  —  Air  Tesp=  70,0  F 

Spill  center  after  advection=  74C22.,  9638.  (-ft) 

Voluse  per  particle  =  5.00  gals 

Slick  Condition  during  this  tise  step 

Slick  indorsation  by  pie  /  strip 
Pie  No.  at  particles  (lean  radius(ft) 


I 

175 

146. 

2 

138 

140, 

7 

82 

130. 

4 

87 

134, 

5 

146 

156, 

6 

139 

143. 

7 

103 

127. 

8 

102 

124. 

Slick  condition  at  the  end  of  this  tise  step 
Fraction  Evaporated  =  . 52053E-02 

Asount  Dissolved  (gals)  s  This  Step  =  .64750E-01  Total  =  .64750E-01 


Tise  =  0.50  Hrs  --  Kind  :sag=  2.0  sph,  dir  =270.0  deg  --  Air  Te»p=  70.0  F 

Spill  center  after  advection=  76142.,  10572.  (ft) 

Voluse  per  particle  =  4,97  gals 

Slick  Condition  during  this  tise  step 

Slick  indorsation  by  pie  /  strip 


Pie 

No.  of  particles 

Mean  radius (ft! 

1 

148 

253. 

n 

L. 

218 

204. 

3 

102 

226. 

4 

58 

235. 

5 

114 

265. 

6 

179 

287. 

7 

80 

218. 

8 

66 

201. 

Slick  condition  at  the  end  of  this  tise  step 
Fraction  Evaporated  =  .’iO^'E-Oi 

Asount  Dissolved  (gals)  ;  This  Step  =  .25054  Total  =  .31529 
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Ti»e  =  0,75  Hrs  --  Wind  ieag=  2.0  iph,  dir  =270.0  deg  --  Air  Teep=  70.0  F 

Spill  center  after  advection=  78110.,  12100. (Ft) 

Volute  per  particle  =  4.88  gals 

Slick  Condition  during  this  tiee  step 

Slick  information  by  pie  /  strip 


Pie 

No.  of  particles 

Nean  radius(ft) 

1 

190 

356. 

0 

L. 

248 

355. 

£ 

82 

317. 

4 

48 

296. 

5 

107 

356. 

A 

214 

432. 

7 

50 

284, 

8 

34 

231. 

Oil  in  River  Banks 

Bank  2;  X-Grid  156 
Particles  7 

Slick  condition  at  the  end  of  this  time  step 
Fraction  Evaporated  =  .58143E-01 

fteount  Dissolved  (gals)  :  This  Step  =  .54172  Total  =  .85701 


Tiee  =  1,00  Hrs  --  Wind  :#ag=  2.0  *ph,  dir  =270,0  deg  —  Sir  7e»p=  70,0  F 

Spill  center  after  advection=  80173,,  13639. (ft) 

Volute  per  particle  =  4.71  gals 

Slick  Condition  during  this  time  step 

Slick  inforaation  by  pie  /  strip 
Pie  No.  of  particles  Nean  radius(ft) 


1 

220 

495. 

2 

209 

469. 

3 

73 

354. 

4 

60 

380. 

5 

116 

470. 

6 

235 

565. 

7 

23 

311. 

8 

35 

317. 

Oil  in  River  Banks 

Bank  2;  X-Grid  156  157 
Particles  11  2 

Slick  condition  at  the  end  of  this  tine  step 
Fraction  Evaporated  =  .10265 

fteount  Dissolved  (gals)  :  This  Step  =  .93088  Total  =  1.7879 
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T 1  ae  -  1  =  25  Hrs  —  Wind  :!»ag=  2.0  sph,  dir  =270.0  deg 

Spill  center  after  advect ion=  82288.,  14858.1ft) 

Vol'jne  per  particle  =  4.48  gals 

Slici-  Condition  during  this  time  step 

Slick  information  by  pie  /  strip 
Pie  No.  of  particles  *ean  radiuslft! 


1 

282 

609. 

n 

j. 

151 

445. 

3 

64 

358. 

4 

77 

550. 

5 

125 

570. 

A 

162 

611. 

7 

30 

321.. 

8- 

36 

339. 

Oil  in  River  Banks 

Bank  2;  k-Snd  156  157  161  163 
Particles  11  2  1  10 

Slick  condition  at  the  end  of  this  tue  step 
Fraction  Evaporated  =  .1480? 

Asount  Dissolved  (gals)  :  This  Step  =  1.3037  Total 


Air  Te*p=  70.0  F 


=  3.0916 
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Air  Tesp=  70.0  F 


Tise  =  1.50  Hrs  --  Kind  :*ag=  2.0  «ph,  dir  =270.0  deg 

Spill  center  after  advection=  84487.,  16099,  (ft) 

Volume  per  particle  =  4.26  gals 

Slick  Condition  ooring  this  tise  step 

Slick  information  by  pie  /  strip 
Pie  No.  of  particles  tfean  radius(ft) 


1 

321 

811. 

i 

105 

523. 

3 

36 

372. 

4 

98 

505. 

5 

163 

851. 

6 

131 

750. 

7 

27 

339. 

8 

40 

466. 

* 

Oil  in 

River  Banks 

Bank 

lj  T-6rid 

163 

Particles 

8 

Bank 

2;  X-Grid 

156 

157 

161  163 

169 

Particles 

11 

0 

L. 

1  16 

14 

Slick  cortd.tion  at  the  end  of  this  tise  step 
Fraction  Evaporated  =  .19416 

Asount  Dissolved  (gals)  !  This  Step  =  1.8238  Total 


4.9154 
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Tue  =  1,75  Hrs  --  Wind  :sag=  2.0  aph,  dir  =270.0  deg  --  Air  Te#p=  70.0  F 

Spill  center  after  advection=  86322.,  17160. (ft) 

Volyse  per  particle  =  4.02  gals 

Slick  Condi ti or  during  this  ti*e  step 


Slick 

tnforeation  by  pie  / 

strip 

Strip 

Particles  • 

■Lent) 

V  »ean 

Le(ft) 

167 

n 

-72. 

15016. 

72. 

148 

4 

-73. 

15032. 

73. 

171 

41 

-166, 

16035. 

265. 

172 

71 

-355. 

16546. 

603. 

173 

122 

-381. 

16896. 

371. 

174 

191 

-347. 

17200. 

305. 

P5 

231 

-276. 

17445. 

259. 

176 

139 

-205. 

17559. 

180. 

Oil 

in  River  Banks 

Bank 

1;  X-6rid  148 

175 

Particles  10 

2 

Bank 

2;  t-Grid  156 

157  161 

163  169 

171  173 

Particles  11 

2  1 

16  72 

57  27 

Slick  condition  at  the  end  of  this  tue  step 


Fraction  Evaporated  =  .24456 

Aeount  Dissolved  (gals)  i  This  Step  =  2.9435  Total  =  7.8589 


Tjae  :  2. 00  Mrs  —  Hi nd  :*ag=  2.0  sph,  dir  =270.0  deg  —  Air  Te*p=  70.0  F 

Spill  center  after  advection-  89002.,  17805.  (ft) 
feline  per  particle  =  3.74  gals 


Slick  Condition  during  this  ti«e  step 


Slick 

information  by  pie  / 

strip 

Strip 

Particles 

-Le (Ft  1 

V  sean 

Le(ft) 

173 

4 

-89. 

17438. 

39. 

176 

59 

-235, 

17167, 

404. 

177 

79 

-340, 

17558. 

520. 

173 

Ml 

-359, 

17300. 

355. 

179 

172 

-331  ■ 

17980. 

285. 

180 

197 

-297. 

18074. 

255. 

13! 

75 

-254. 

19116. 

212. 

Oil 

in  River  Banks 

Bank 

1;  T-Grid 

168 

175 

Particles 

9 

6 

Bank 

2;  1-Grid 

156 

157  161 

163  169 

171  173  175 

Particles 

11 

2  1 

16  61 

52  44  17 

Slick 

condition 

at 

the  end  of  this  tise  step 

Fraction  Evaporated  =  .29250 

A*ount  Dissolved  (gals)  :  This  Step  =  3. 6486  Total  =  11.507 


St.  Clair  River 


Fig.  12.  Plot  of  slick  locations  at  t  =  15  min,  30  min,  45  min 


St.  Clair  River 


Fig.  13.  Plot  of  slick  location  at  t  =»  1  hr  30  min 


SI .  Clair  River 
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St.  Clair 


St.  Clair  River 
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Fig.  15.  Plot  of  slick  location  at  t  =  2  hrs 


APPENDIX  I 


CROSS  SECTIONAL  GEOMETRY  OF  RIVERS 

This  appendix  contains  cross-sectional  geometry  data  at  each  cross 
section  in  the  following  rivers: 

1.  St.  Clair  River 

2.  Detroit  River 

3.  Upper  St.  Mary's  River 

4.  Lower  St.  Mary's  River 
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Distance  is  measured  from  Lower  Left  Bank. 


15  Distance(ft) 
Depth  (ft) 
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29  Distauce(ft) 
Depth  (ft) 


31  Distattefft)  221  971  1294  1523  1675  2037 
Dept  t  (ft)  41  42  32  37  0 
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46  Distance(ft)  206  583  832  1046  1184  1743  2075 

Depth  (ft)  35  32  38  32  39  32  0 


47  Disterce(ft) 
Depth  (ft) 
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Depth  (ft)  19  18  23  15  33  35  21  25  11  8  0 


AS  Distance(ft)  31  209  990  11A6 

Depth  (ft)  25  29  27  0 
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Distance  Is  measured  from  Lower  Left  Bank. 
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X-S«ct.  Vertical  Line  No. 
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Distance  is  measured  from  Lover  Left  Bank. 


16  Distance(ft)  67  200  333  467  600  633  867  900  1033 

Depth  (ft)  6  12  17  12  18  30  30  18  0 
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30  Disteoce(ft)  125  1150  1500  1575  1875  2000  2250  2560  2650 

Depth  (ft)  589  32  32  8  8  5  0 


31  Distaoce(ft)  400  1100  1700  2050  2200  2625 
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APPENDIX  II 


PROGRAM  LISTING  OF  ROSS  AND  SUBPROGRAMS 


The  program  listing  is  arranged  in  the  following  sequence. 


Main  Program 
ROSS 


ROSS  Subroutines 


ADVECT 
BOUNDR 
DISOLU 
EVAPOR 
NDCONV 
ORIENT 
PLOTNU 
PRELSE 
PRINT1 
SPRDAX 
SPRD1X 
SPRD1Y 
VELD IS 


System  Subroutines 

GAUSS 

RANDU 


*These  programs  were  available  at  Clarkson  University  computing  system.  The 
source  code  is  provided  here  for  completeness.  Other  systems  may 
substitute  these  with  appropriate,  subprograms. 
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Main  program  ROSS 


C 

£  ************************************************************************** 
u  * 

C  *  River  Oil  Slick  Simulation  Model  ..ROSS.. 

C  * 

C  *  Last  Date  of  Revision  October  14,  1986 
C  * 

C  *  Developed  by  the  Department  of  Civil  and  Environmental  Engineering 
C  *  Clarkson  University,  Potsdam,  New  York  13676 

C  *  under  the  support  of  the  Detroit  District,  U.  S.  Army  Corps  of 

C  *  Engineers,  through  the  Cold  Regions  Research  and  Engineering 

C  *  Laboratory,  Hanover,  N.H. 

C  - - - - - 

C  *  This  program  is  furnished  by  the  Government  and  is  accepted  and  used 

C  *  by  the  recipient  upon  the  express  understanding  that 

C  *  the  United  States  Government  University  makes  no  warranties,  express 
C  *  or  implied,  concerning  the  accuracy,  completeness,  reliability, 

C  *  usability,  or  suitability  for  any  particular  purpose  of  the 

C  *  information  and  data  contained  in  this  program  or  furnished  in 

C  *  connection  therewith,  and  the  United  States  Government  shall  be  under 

C  *  no  liability  whatsoever  to  any  person  by  reason  of  any  use  made 

C  *  thereof.  The  program  herein  belongs  to  the  Governmeent.  Therefore, 

C  *  the  recipient  further  agrees  not  to  assert  any  proprietary  rights 

C  *  therein  or  to  represent  this  program  to  anyone  as  other  than  a 

C  *  Government  program. 

C  * . . 

c  * 

c  ************************************************************************** 

c 

c 

DIMENSION  IPARTX(5),IPARTY(5),HLIFECl0),THErA0(4),IDUM(20) 

COMPLEX  VSTRM(99,16),CORDV(99,16),VCAR(12000),CORDLB(99) 

COMPLEX  S  PCEN ,  P ARTCL( 1000) , VWIND , VDR IFT 
COMPLEX  SPCENO 

COMMON  /VEL/VSTRM,CORDV,CORDLB,Q(30),WL(30),T1CE(99,20), 

$  YWID(99,20),Z(99,20),ZD(99),NSLSCrr(99),SCrANG(99), 

$  LCSTSQ(30),NSTUBEC99),NUMCON(99),NFIRCO(99),NSECO(99),KINTM 
COMMON  fVAJ  VCAR , VWIND, VDRIFT 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 

COMMON  /ASB/SPCEN , PAJRTCL,  NPTCL,  NHTIB,  IHITB( 1000) ,TYPBND(4 ,300) 
COMMON  /BLOCK7/SPGOIL,ANIU,  SIGMA ,AK2I,AK2V,AK2T, 

S  VOLPAR,VOLPIE(8),SUCKR(8) 

COMMON  /BLOCK8/AKC10,AKC20,AKC30 
COMMON  /SE/FEVP1,FEVP2,CEVP,T0EVP 
COMMON  /V /IZRBX(  100),  IZRBY(  100),  NZR VB 

COMMON  /ICE/NICEX1(20),NICEY1(20),NICEX2(20),NICEY2(20),NICERG, 

%  AMIUO,ANICE,IPOS1(20),IPOS2(20),SPAICE 
COMMON  /SO/IMOVlN(iOOO),YSHIFi(lOOO),NMOVIN,SSHEFT 
INTEGER  UFSTPS.OSTPS 

character  *4  FULL, PART, OPEN. STCL.DETR.STMU.STML, WORD 
character  *12  finame 
character  *4  TEXT(ll),FUELTP(4) 
character  *44  SLINFO(3) 

EXTERNAL  RANDOMIZE 

DATA  FULL, PART, OPEN/TULL’, ’PART, ’OPEN’/ 
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Main  program  ROSS 


DATA  STCL.DETR.STMU.STML/’STCL’.’DETR’.’STMU’.’STMLV 
DATA  HLIFE/0.033,.5,1.,6.,12.,18..24.,48.,48.,8760./ 

DATA  THETAC/109., 127.1, 6.0,27.2/ 

DATA  SLINFOCl)/’  Pie  No.  of  particles  Mean  radius(ft)’/ 

DATA  SLINFOC2)/’  Strip  Particles  -Le(ft)  Y  mean  Le(ft)*/ 

DATA  SUNKX3)/’  Strip  Particles  -LeCft)  X  mean  Le(ft)*/ 

open(l5,file«’rOiis.fnm’) 
rewind  15 
do  2222  ifiles-1,9 
read(l5,llll)iunit,finame 
openCiunit.file-finame) 
rewind  iunit 
2222  continue 
1111  format(I3A-12) 

C  Explanation  of  Variables 
C  --single  varibles 
C 

C  The  next  four  variables  are  for  controlling  output.  They  can 

C  have  the  values  O-NO  ,  1-YES 

C  IOPTl -Fixed  data  like  Geometry  and  Bank  (shore)  conditions 

C  IOPT2- Computed  Vleocities  for  plotting 
C  IOPT3-Location  of  particles  for  plotting 
C  IOPT4-Number  PlotCparticle  distribution)  on  print 
C 

C  ISPTYP  -  Spill  type  O-Instantaneous,  1 -Continuous.  Computed  by 
C  model  based  on  :  if  SPLTIM  >  0.5*SPILET  ISPTYP-1  else=0 

C 

C  FEVP1  -  Fraction  evaporated  at  previous  time  step 

C  FEVP2  -  Fraction  evaporated  at  present,  time  step 

C 

C  NBRNCH  No.  of  Branches  in  the  1-D  Flow  Model 

C  NGRIDX  Total  No.  of  grid  boxes  in  X-direction 

C 

C  TOTDIS  -  Total  amouunt  of  Dissolved  Oil  (gms) 

C 

C  UFDT  -  1-D  Model  time  stepChrs) 

C  UFSTPS  -  No.  of  1-D  model  steps 

C  OSTPS  -  No.  of  Oilspill  steps  per  UFDT 

C 

C  **  Any  variable  with  UNI  as  the  last  three  characters  are  for 

C  converting  units  for  the  purpose  of  printing 

C 

C  --some  important  variable  names  used  for  intermediate  computations 
C  AIY  area  of  the  IYth  Trapezoid 

C  PERI  wetted  perimeter  by  IYth  Trapezoid 

C  HR  hydraulic  radius  of  IYth  trapezoid 

C 

C  --One  D  arrays 

C  IGRELB(I)  y-dir  grid  box  number  of  lower  river  boundary  column  I 

C  IGRIUBCl)  y-dir  grid  box  number  of  upper  river  boundary  column  I 

C  LCSTSQO)  last  section  number  of  branch  I 

C  NSLSCTCl)  No.  of  slices  of  data  for  section  I 

C  NSTUBEd)  No.  of  stream  tubes  for  section  I 

C  NUMCON(I)  Condition  Number  (see  text)  for  section  I 
C  NFIRCO(l)  Next  section  first  connecting  to  section  I 
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Main  program  ROSS 


C  Q(0  Discharge  in  the  Ith  Branch 

C  SCTANGCl)  angle  Ith  section  makes  with  X-direction 

c  THEiAuCi)  The  clockwise  angle(deg)  of  the  Y-axis  of  the  river  I, 
C  measured  from  magnetic  north. 

C  WL(I)  water  level  of  upstream  of  branch  I 

C  ZD(I)  reference  level  from  datum  for  section  I  at  which  Z’s 

C  are  evaluated 

C 

C  --  Two  D  arrays 

C  TICHXJ)  Equivalent  ice  thickness  of  Jth  vertical  in  Ith  section 

C  YWnXU)  Distance  from  lower  bank  of  river  to  the  Jth  vertical 

C  in  Ith  section 

C  ZCl.J)  Height  of  Jth  vertical  in  Ith  section 
C 

C  --  Complex  Variables  (these  store  X- component  as  real  part  and 
C  Y-component  as  imaginary  part) 

C  CORDLB(l)  lower  bank  co-ords  of  the  Ith  section 

C  CORDVd.J)  co-ords  at  which  VSTRM(I,J)  is  acting 

C  VSTRMCl.J)  stream  velocity  of  the  Ith  section  and  Jth  streamtube 
C  VCARCD  velocity  in  the  cartesian  box  grid  system  of  box  I 
C  . . . . . 

c 

READ(l  ,650)WORD,TEXT 

READCl  ,*)NBRNCH,NGRIDX,DX,KINTM 

READCl  ,*XLCSTSQCl),I=l  .NBRNCH) 

IS2  -  LCSTSQ(NBRNCH)+  1 
DO  100  1=1, IS2 

READ(l,*)J,CORDLB(l),SCrANG(l),NSTUBE(l),NUMCON(l),NFiRCO(l) 

S  ,NSECO(l) 

IKJ.NE.I)WRITE(*,700) 

C  SCTANGd)  -  SCTANGCl)*3. 141592/1 80. 

100  CONTINUE 

DO  110  I=1,IS2 

READC 1  ,*)J  ,NSLSCTd).ZD(l) 

IFC  j  .ne.  DwriteC*  .  7 1 0) 

NNN=NSLSCT(I>i-l 

READCl  ,*XYWIDd,j),  Zd,J),  J=2,NNN) 

110  CONTINUE 

DO  120  I=1,NGRIDX 

READCl,*)J,IGRILBd),IGRIUBd),IGRLBld),IGRUBld) 

IFd.NE.J)WRITE(*,720) 

120  CONTINUE 

C 

C  Read  the  I, J  values  of  Grid  boxes  in  which  velocity  =0.0 

C 

READC  1,*)NZRVB 
rKNZRVB.EQ.OXJOTO  140 
EFCNZRVB.GT.  100)WRITE(*, 730) 

EFCNZRVB.GT.  100)NZRVB=100 
READCl  ,*XIZRBX(I),  IZRBY(I),  1=1  .NZRVB) 

C 

C  Read  the  spill  volume,  spill  location  and  wind  data 
C 

140  READCl  2, 650)FUELTP 

READC  1 2 ,  *)TOTIME,  IEVER  Y ,  IOPT 1 ,  IOPT2 ,  IOPT3 ,  IOPT4 ,  SPLTIM  .DIFFUD 
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READ(12,*)NTOTAL,SPVOL,SPILDT,SPGOIL,ANIU,SIGMA,AK2I>AK2V,AK2T 
$  ,AKC10,AKC20,AKC30 
ISPTYP  -  0 

IFCSPLTIM.GT.0.5*SPILDT)ISPTYP-1 
READC  1 4 ,  *)ANICE,AMUNI 
C 

C  SPVOL  IS  U.S.  GALLONS.  VOLPAR  IS  CU  FT.  OF  VOLUME  PER  PARTICLE 

C 

SPLRAT  -  0.13368*SPVOL/SPLTIM 
VOLPAR  -  0.13368*SPVOL/NTOTAL 
VZERO  -  SPVOL*3.7850E-03 
API  -  0.0 

READ(12,*)SPX,SPY,VMUNI,SOLUNI,CEVP,TOEVP 

SOLBLT  -  SOLUNI*1601 8.453 

VMOL  -  VMUNI*0.02  831682 

AMIUO  =  AMUNI*14. 88162 

TOUNI  -  T0EVP*9./5.0 

IF(T0EVP.LT.1.0)API  =  141.5/SPGOIL  -  131.5 
APITEM  -  141.5/SPGOEL  -131.5 
SPCENO  -  CMPLX(SPX,SPY) 

C 

C  Check  if  the  spill  co-ordinates  are  in  land 
C  (This  is  a  check  for  input  error) 

C 

L  -  SPX/DX  +  1.0 
M  -  SPY/DX  +  1.0 

lKM.LT.IGRILB(L).OR.M.GT.IGRIUBCL))GOTO  150 
IF(IGRLB  1  (L) .  EQ .  0)GOTO  160  ' 

IFCM.GE.IGRLB1(L).AND.M.LE.IGRUB1(L))GOTO  150 
GOTO  160 

150  WRITEC*, 800)L,M 
STOP 

160  CONTINUE 

TTCT-SPLTIM/60. 

IF(lSPTYP.EQ.l)WRrrEC*,  810)UEXT, SPCENO, TTIT 
IF(ISPTYP.EQ.0)WRm3(*,820)TEXT,  SPCENO 

WRITE(*,830]rronME,NTOTALtSPVOL,FUELTPISPILDT,SPGOILrAPITEM 
$  .AN  IU, SIGMA 

WRITEC* ,  840)AK2 1  ,AK2  V  ,AK2T  ,AKC 1 0  ,AKC2  0 ,  AKCJU.VMUNI ,  SOLUNI 
WRITEC*,  842)AMUNI,ANICE 
IFCAPI.LT.  1.)  WRITEC*,  844)CEVP,T0EVP 
IF(DIFFUD.LT.0.0)WRrrE(*,  846) 

IFCDIFFUD.GT.O.O)WRITEC*,847)DIFFUD 
844  FORMATC’  API  option  is  not  selected  .  Evap.  constants  are  \ 

S  *  C-  \F6.2,’  TO-  ’.F7.1) 

846  FORMATC//’  Surface  Diffusion  -  Default  formulation  is  used’//) 

847  FORMATC//’  Surface  Diffusion  Coeff.  «’,F6.2,’  sq  ft/sec’//) 

C 

C  READ  BOUNDARY  TYPE  INFORMATION 
C 

170  READ(8,*)K,LFROM,LTO,ldODE 
IFCK.EQ.O)GOTO  190 
AN  -  HLIFEClCODE)*3600./SPILDT 
REJRAT  =  1  -  0.5**(l./AN) 

DO  180  L=LFROM,LTO 
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180  TYPBNDCK.O-REJRAT 

GOTO  170 
1VO  CONTINUE 

NSPILS-(SPLTIM+1.0)/SPILDT 
iKlSPTYP.EQ.  l)NPERDT  -  NTOTAL/N SPILS 
IKISPTYP.EQ.IXJOTO  210 
NPERDT-NTOTAL 
DO  200  I-l.NTOTAL 
200  PARTCLd)  -  SPCENO 
210  CONTINUE 
C 

C  First  set  Vol  of  each  pie-8*one  eighth  of  vol  released  in  SPILDT 
C 

DO  220  1-1,8 

220  VOLPIEa)  -  VOLPAR*NPERDT 
C 

C  set  random  number  generation  seed  IX 
C 

DC-101 

CALL  RANDOMIZER) 

WRITE(l  1 , 6  5  oTtext,  FUELTP 

WRTTE(l  1 ,65l)NTOTAL,SPVOL,SPILDT,SPGOIL,ANIU,SIGMA,VMUNI,SOLUNT 
$  .AMUNI 
TIMET  -  0. 

IPARTXC  1)=REALCSPCEN0) 

IPARTY(  1  )=»aimag(spceno) 

WRITECl  1 ,850)lPARTX(l),IPARTY(l) 

INDX1D  -  0 
NST  -1 

NPTCL  -  NPERDT 
FEVP1-0. 

FEVP2-0. 

TOTDIS-O. 

NBRP1  -  NBRNCH  +  1 
READ(7,*)UFDT 
WRITB(*,845)UFDT 
UFSTPS  -  TOTIME/UFDT 
OSTPS  -  (UFDT*3600.+1.0)/SPILDT 
C 

DO  340  IUF-1, UFSTPS 
C 

C  Read  Data  Created  by  unsteady  Flow  Model 
C 

IF(WORD.  EQ .  STCL)IRCODE- 1 
IFCW0RD.EQ.DETR)IR  CODE-2 
EF(WORD.EQ.STMU)IRCODE-3 
IFCWORD.  EQ.  S1ML)lRCODE-4 
C 

C  If  the  numbering  sequence  of  branches  in  oilspill  model  is  the 

C  same  as  that  of  1-D  model  the  following  3  statements  can  be  used  to^ 

C  Read  the  Q  &  "WL  data.  In  this  case  subroutine  NDCONV  is  not  needed. 
C  Subroutine  NDCONV  is  specifically  written  for  reading  Q  &  WL  from 

C  the  three  1-D  River  models  St.  Clair,  Detroit  and  St.  Mary’s 

C 

C  DO  230  I-1.NBRP1 


140 


Main  program  ROSS 


C  READC7  ,*)WL(I),QCl) 

C230  CONTINUE 

CALL  NDCONVCNBRPl  .IRCODE) 

C 

C  Read  ice  thickness  information 
C 

READ(7,*)ICINFO 
DO  270  I-UCINFO 
READ(7,660)IS,\VORD 
NNN-NSLSClXlS)+l 

IFClCINFO.EQ.  1  .AND.WORD.EQ.OPEN)  THEN 
WRITE(*,234) 

ELSE 

ffO  .EQ .  1  XYRITEC*  ,235) 

END  IF 

IKWORD.NE.FULLX3OT0  250 
READ(7,*)FULLTI 
DO  240  K-l.NNN 
TICE(I  S  ,K)-FULLTI 
240  CONTINUE 

WRITE(*,236)IS,FULLTI 
250  IFCWORD . EQ . PART)  THEN 

READC7,*XTICE(IS,J).J-1.NNN) 

DO  252  J-1.NNN 
IDUM(J)  -  YWIDdS.J) 

252  CONTINUE 

WRITEC*,237)  IS,(IDUM(J),I=1,NNN) 

WR1TE(*,238)  CllCEClS,J),J=l,NNN) 

END  IF 

IFCWORD.NE.OPEN)GOTO  270 
DO  260  K-l.NNN 
TICE(lS,K)-0.0 
260  CONTINUE 

270  CONTINUE 
C 

READCl4,*)NICERG 
IKNICERG.EQ.OXJOTO  278 
DO  275  I-l.NICERG 

READCl4,*)NICEXl(l)1NICEYia)>NICEX2(l),NICEY2(I) 

275  CONTINUE 

WRITE(*,930)NICERG,(l»NICEXl(I),NICEYl(l),NICEX2Cl),NICEY2Cl), 
$  I-l.NICERG) 

C 

C  Set  up  the  lD-array  locations  that  define  Ice  regions 
C 

DO  40  K=1,NICERG 
LKl=NICEXlOO-l 
MKl-NICEYlOO-1 
IPOSlCK)  »  0 
IFCLKl.EQ.O)GOTO  45 
DO  44  Ll=l  ,LK1 

IPOSlCK)  =  IPOSl(K)+IGRIUB(Ll)-IGRILB(Ll)+3 

44  CONTINUE 

45  IPOSlCK)  -  IPOS  1  GO+MK  1  - IGRDLB(LK  1 + 1  )+3 
LK2-NICEX2CK)- 1 
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47 

48 
40 
C 

278 

280 

C 

C 

C 


C 

c 


c 


290 

c 


115 

117 


MK2-NICEY200- 1 
IPOS2CK)  -  0 
IKLK2.EQ.OXKJTO  48 
DO  47  L1-1.LK2 

IPOS2CK)  -  IPOS2(K>cIGRIUB(Ll)-IGRILBai)+3 
CONTINUE 

IPOS20O  =  IPOS2(K)+MK2-IGRILB(LK2+l)+3 
CONTINUE 

WRITE(*,860) 

DO  280  I-l.NBRNCH 
WRITER,  8  70)I>Qd),V/La) 

Now  call  VELDIS  to  find  the  2-D  vel  distribution  in  the  river 

IKIOPTI.EQ.OCAUL  PRINT1(2,NBRNCH,NGREDX,DX) 

CALL  VELDIS(IOPT2,NBRNCH,NGRIDX,DX) 


NST1=(IUF-  l)*OSTPS+l 
NST2-  NST1  +  OSTPS  -1 
DO  330  I-NST1.NST2 
READCl2,')VWMAG,THETA,TENVF 
THET  -  (THETAO(IRCODE)-THETA)*3. 141592/1 80. 

VWX-VWMAG  *  S INCIHET) 

VWI-  -  VWMAG*COS(THET) 

VWIND  =  CMPLX(VWX.VWY) 

WNDSPD  -  VWMAG/3.28 
VWMPH  -  VWMAG*0.6818 
TENV  -  (TENVF-32)*5./9.  +  273. 

INDPRX  -  0 

IF(MOlXl  - 1  ,itVERY).EQ.O)INDPRN  -  1 
TIMET  -  TIMET  +  S  PILOT 
IF(ISF1’YP.NE.  IXjOTO  290 

iKlle.nspils)call  prelseCdx.spilot.dc.nst.nptcl.spceno.diffud) 

DFd.GT.lXlALL  ADVECItDX.SPILOT.IX.l.NST-LDIFFUD) 
IKISPTYP.EQ.OXALL  ADVECltDX.SPILOT.IX,  1 , NTOTAL , DIFFUD) 

CALL  0RIENT(INDX1D,DX) 

IEXINDX 1  D.LT.  3X3CTO  293 
IKNICERG.EQ.0)INDX1D=INDX1D-  3 
LF( NICER G.EQ.OXKTTO  293 
NPTICE-0 

DO  292  KK=l,NMOVrN 
IMOVIN(KK) 

L  -  REAL(PARTCUJ))/DX 

m  »/aimag(partcl(j))+yskifiXj))/dx 
IPOS  =  0 

IF(L.EQ.O)GOTO  117 
EX)  115  L1=1,L 

IPOS  -  IPOS+IGRIUB(Ll)-IGRILB(Ll)+3 
CONTINUE 

IPOS  -  IPOS+M-IGRILB(L+l)+3 
IX)  118  K-l.NICERG 
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tF(IPOS. GE.  IPOS  lOO  .AND.  IPOS.LE.IPOS2(K))NPnCE«=NPnCE+l 
118  CONTINUE 

292  CONTINUE 

ratice=floatCnptice)/floatcnmovin) 
if(raticf..lt.o.  5)INDX1  D-INDX 1 D  -  3 
IF(RATICE.GE.O . 5)lNDXlD-0 

c 

293  Tnr-TIMEr/3600. 

GALPAR  -  VOLPAR/0. 13368 

IF(INDPRN.EQ.l)WRrrEC*,  880XmT,VWMPH, THETA, TENVF.SPCEN.GALPAR, 
S  SLINFOClNDXlD+l) 

EKINDXID.EQ.OXLAlLL  SPRDAX(DX,SPILDT, TMET, INDPRN.SPAREA 
$  ,SPLTIM,SPLRAT) 

IF(INDXlD.EQ.l)CALL  SPRD 1  Y(DX , SPILDT, TIMET, INDPRN , SPAREA) 
IFCINDX1D.EQ.2XALL  SPRDlX(DX,SPILDT,TIMEr, INDPRN, SPAREA) 
FEVP1-FEVP2 

CAUL  EVAPORCAPI, TENV,WNDSPD,VMOL,VZERO, SPAREA, SPILDT, I) 

CALL  DISOLUCSPAREA,  SOLBLT, TIMET,  SPILDT  API, DELDIS  .TOTDIS) 
DELUNI-  DELDIS*264.172E-06/SPGOIL 
TOTUNI=  TOTDIS*264.172E-06/SPGOIL 
VOLPAR-  0.13368 *(SPV0L*(  1  -  FEVP2)  - TOTUNI)/NTOTAL 
IKNHITB.GT.OCALL  BOUNDR(DX,NGRIDX,INDPRN) 

C 

IP(I.GE.NSPILS)NST  =  NPTCL  +1 
IF(l.GE.NSPILS)GOTO  300 
NST-NPTCL+1 
NPTCL=N  ST+NPERDT- 1 
C 

300  IKINDPRN.NE.DGOTO  330 

WRITE!*, 900)FEVP2,DELUNI,TOTUNI 
IKI0PT4.EQ.1)CALL  PLOTNUCDX) 

IFtlOPT3.NE.l)GOTO  330 
IPARTXC 1  )“REAL(SPCEN) 

IPARTYC 1  )-AIMAG(SPCEN) 

WRITEO  1 ,9 10)IPARTX(  1), IPARTYC  l),TnT,VWX,VWY, GALPAR 
DO  320  J=*1,NT0TAL,5 
DO  310  K-1,5 

IPARTXOO  =•  REALCPARTCL(J+K-1)) 
ipartyCk)  -  AIMAGCPARTCLXJ+K-1)) 

310  CONTINUE 

WRITECl  1 , 850XIPARTXOO, IPARTYCK), K=1 ,5) 

320  CONTINUE 
330  CONTINUE 
340  CONTINUE 
STOP 

234  FORMATC//’  Open  Water  Conditions’) 

235  FORMAT!//’  Ice  conditions  at  cross  sections’, /lH+,32(’_’)// 

S’  X-sect’,9X, ’Condition  (A  thickness  of  0.0  implies  open  water)’). 

236  FORMAT(/I4,5X,Tce  cover  of  uniform  thickness  -\F5.2, 

S  ’  ft  across  the  river’) 

237  FORMATC/I4.5X, 'Partial  or  non-uniform  ice  cover  across  the  river.’ 
$,’  Distances  from’/9X,’the  lower  bank  and  corresponding  ice’ 

$  ’  thickness  is  given  below’/9X,’Dist(ft)  ’,2015) 

238  FORMAT(9X,Thic(ft)  \20F5.2) 

720  FORMATC’  **  ERROR  **  READING  GRID  INFO.’) 
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730  FORMATC’  NZRVB  is  GT  100  and  is  reset  to  100’) 

710  FORMAT/  **  ERROR  **  READING  X  SECTION  -  DATA  ’) 

700  FORMATC’  **  ERROR  **  READING  LOWER  BOUNDARY  -  DATA  0 
660  FORMATC  14,1  X,A4) 

650  FORMAT(20A4) 

651  FORMAT(I4,F8.0,F7.0,F6.2,5E11.3) 

810  FORMATC  1H1 , 16X,  1 1A4,/ / 5X,25(’*’)/ 5X,’*  CONTINUOUS  SPILL  *’ 

$  /5X,’*\11X,’AT,10X,'*'/5X,’*’,4X,F7.0,7,F7.0,4X,’*’/ 

$  5X,’*’,5X,TOR  ’,F5.0,’  min.\4X,’*7SX,25(’*’)) 

820  FORMATC  1H 1 , 1 6X,  1 1 A4  ,//5X,2  5(’*’)/ 5X, ’*  INSTANTANEOUS  SPHX  *’ 

S  /5X, 

$  ’*’,11X,’AT,10X,’*75X,’*’,4X,F7.0,\’,F7.0,4X,’*7SX,25(’*’)) 

830  FORMAT://’  SIMULATION  PERIOD  -  ’.FS.l,’  Hrs’/// 

$  *  Characteristics  of  spill71H+,24(’_’)// 

$  ’  No.  of  particles  :’,I5,/ 

$  ’  Oil  spilled  :’,F8.0,’  gals  of  ’,4A4/ 

S  ’  DT  for  spill  simulation  :’,F8.0,’  Secs.’,/ 

$  ’  Specific  gravity  of  oil  :\F8.2,’  (API  index  -’.FS.l,’)’/ 

$  ’  Kinematic  Visco.  of  Water  :’,E10.4,’  sq  ft/sec’,/ 

$  ’  Surafce  Tension  :’,E10.4,’  lbs/ft’,/) 

840  FORMATC/9X,’Spreading  Coefficients’  / 

$  ’  K2i  K2v  K2t  clO  c20  c30’/,6F6.2// 

$  ’  Molar  volume  :’,E10.4,’  cu  ft/mol’/ 

$  ’  Solubility  of  fresh  oil  :\E10.4,’  lbs/cu  ft’) 

842  FORMAT  (’  Viscosity  of  Oil  :’,F8.2,lbs/ft-sec’/ 

S  ’  Manning  s  Roughness  of  Ice  :\F8.3/) 

845  FORMATC/’  Time  step  for  river  flow  computation  =’,F6.2,’  Hrs’) 

910  FORMAT(I8,I7,F9.4,2F6.1,F8.2) 

850  FORMATC  5(18,17)) 

880  FORMATC/ // 1 X, 7 8(* - ’)/’  Time  =  \F6.2,’  Hrs  --  Wind  :mag=’,F5.1, 

$  ’  mph,  dir  =’,F5.1,’  deg  --  Air  Temp-’,F5.1,’  F’/ 

$  ’  Spill  center  after  advection-  ’,F7.0,\\F7.0  tfr)’/ 

$  ’  Volume  per  particle  -  \F8.2,’  gals’// 

$  ’  Slick  Condition  during  this  time  step’// 

$  ’  Slick  information  by  pie  /  strip’/A44) 

900  FORMATC//’  Slick  condition  at  the  end  of  this  time  step’ 

%  //’  Fraction  Evaporated  =  \G10.5/’  Amount  Dissolved  (gals) 

$  :  This  Step  -  ’.G10.5,’  Total  -  ’.G10.5/) 

860  FORMATC//’  Flow  and  Discharge  Conditions  in  River’/ 

$  ’  Branch  Q  (cfs)  Stage  (ft)  ’) 

870  FORMATC4X,I2,5X,F7.0,5X,F6.2) 

800  FORMATC//’  Spill  location  co-ords  are  in  land  X  &  Y  GRID  box  no.  s 
$  are  ’,14,’  &’,I4,//’  ~~  Execution  terminated  ’) 

930  FORMAT(/20X,’No.  of  Ice  Covered  Regions  —’,13/’  Region  from’ 

$  ’  X,Y  Grid  to  X,Y  Grid’/(I4,11X(I3,’,’,I3,6X,I3,’,M3)) 

END 
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SUBROUTINE  ADVECItDX,SPILDr,IX,Nl,N2,DIFFUD) 

C 

C  This  subroutine  handles  the  advection  of  spill,  in  each  time  step 

C  Each  particle  is  advected  according  to  current  &  wind  velociites 

C  (see  text  for  details) 

C  This  routine  advects  moving  particles  in  the  range  N1  to  N2 

C  This  version  includes  advection  under  ice  covers 

C 

C  Last  date  of  revision  :  Jun  25,  1986 
C 

COMPLEX  VCAR(l2000),SPCEN,PARTCL(l000),VWIND,VDRIFr 
COMMON  /VA/  VCAR , VWIND.VDREFT 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLB1(300),IGRUB1(300) 
COMMON  /ASB/SPCEN .PARTCL, NPTCL, NHITB,IHrrB( 1 000) ,TYPBND(4 ,300) 
COMMON  /BL0CK7/SFG0IL,ANIU,SIGMA,AK2I,AK2V,AK2T, 

$  VOLPAR ,VOLPEE(8),  SLICKR(8) 

COMMON  /ICE/NICEXl(20),NICEYl(20),NICEX2(20),NICEv2(20),NICERG, 

S  AMKJO,ANICE,IPOSl(20),IPOS2(20),SPAICE 

Input  :  ..  Location  of  each  particle 

..  Velocity  distribution  in  river 
Output:  ..  New  loaction  of  each  particle 

DATA  STDEVI/0.050/,PI  /3. 141592/ 

IF(NICERG.EQ.O)GOTO  25 

DELEQ  -  Equilibrium  thickness  (ft) 

UTH  -  Threshold  current  speed  for  slick  movement  (  ft/sec) 
UFAIL  -  Failure  velocity  under  rough  ice  cover  (  ft/sec) 

FRAMFA-  FRiction  AMplification  FActor  denoted  by  ’K’  in  text 
AMIUO  -  Viscosity  of  Oil  in  g/cm-sec 

DELEQ  =  (1.67  -  8.5*(l.0-SPGOIL))/30.48 
UTH  =  (3C5. 7  9/(88.68 -AMTUO))/30.48 
FRAMFA  -  35.55*ANICE  +  1.0 
IF(ANICE.GT.0.045)FRAMFA  =  2.6 
TERM1 =SQRT(SIGMA*(3  2 . 2)**2  *6  2 . 4*(  1 .  -  SPGOIL)) 

UFAIL-1 .5*SQRT(2.*(l  .+SPGOIL)*TERMl/(62.4*SPGOIL)) 

loop  60  operates  for  each  moving  particle  in  the  system 

5  DO  60  I=N1,N2 
SUMDT  «  0. 

IPASS  =  1 

C  SUMDT  -  Sum  of  the  samll  Dt’s  (DTSMALL) 

C  IPASS  -  pass  number  in  this  loop.  A  prticle  may  move  from  its 

C  previous  position  to  present  position  through  only  one  pass  or 

C  several  passes  depending  on  the  magnitudes  of  velocities  in  the  region 
40  DO  30  J=1,NHTTB 

lKLEQ.IHITB(J))GOTO  60 
30  CONTINUE 

L  -  REAL(PARTCL(l))/DX 
M  =AIMAG(  PARTCL(  I))/DX 
IPOS  =  0 
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IFCL.EQ.OXKTTO  117 
DO  115  Ll-l.L 

IPOS  =  IPOS+IGRIUB(Ll)-IGRILBCLl>+3 
115  CONTINUE 

117  IPOS  -  IPOS+M-IGRILBCL+l>+3 

IKNICERG.EQ.OXjOTO  125 
C 

C  determine  whether  the  particle  is  under  ice  or  not 
C 

ICONEM) 

DO  120  K-l.NICERG 

IF(lPOS.GE.IPOSlCK)  .AND. IPOS. LE.IPOS2(X))ICOND=l 
IF(IC0ND.EQ.  lXJOTO  180 
120  CONTINUE 

C 

C  Advection  velocity  in  free-surface  conditions 

C 

125  VDRIFT  =  0.03*VWIND  +  1 . 1  *VCAR(IP0S) 

GOTO  210 
C 

C  Advection  Velocity  under  Ice 

C 

180  UWATER  =  CABS(VCAROPOS)) 

ROUGH  -  (ANICE/0.034)**6 
IF(ROUGH.GT.DELEQXjOTO  190 
IF(UWATER .  LT.UTEI)GOTO  60 
.  GOTO  200 

190  IKUWATCR .I.'I .  vjFAILXjOTO  60 

200  VDRIFT  =  VCARCIPOS) 

FDELTA  =  UWATER/SQRTCCl  .0-  SPGOEL)*32.2*DELEQ) 

FK  -  SQRT(FRAMFA/(0. 1 1 5*FDELTA**2  +  1.105)) 

VDRIFT  =  VDR  IFT*(  1  -  FK) 

210  DTSMAL  -  86400. 

C  86400  is  just  a  large  number  in  this  case  equal  to  secs  in  a  day 
VELUPV  -  ABS(REAlXVDREFT))  +  ABS(AIMAG{VDRIFT)) 
IF(VELUPV.GT.0.1)DTSMAL  =  DX/VELUPV 
IF(DTSMAL  .GT.  SPILDT.  AND .  IP  AS  S .  EQ .  1  )ETSMAL  -  SPJLDT 
IF(DTSMAL.GT.SPILDT.AND.IPASS.GT.1)DTSMAL  -  SPILDT  -  SUMDT 
lKDTSMAL.LT.O.O)DTSMAL  =  0. 

IF((SUMDT+DTSMAL).GE.SPILDr)DTSMAL  =  SPILDT  -  SUMDT 
IPASS  =  IPASS  +  1 

EK(SUMET+DTSMAL).GE.SPILET)  IPASS  -  9999 
SUMDT  -  SUMDT  +  DTSMAL 
CALL  RANDU(DUY,YFL) 

IX  -  IY 
ANG  =  PI*YFL 

CAU.  GAUSSOX.l. 0,0.0, VRAND) 

IF  (DIFFUD.LT.O.O)DDD  =  2.88*CABS(VDRIFT) 

IF  (DCFFUD.GE.O.O)DDD  -  4*DIFFUD 
VRAND  =  VRAND*  SQRT(DDD/DTSMAL) 

VX  -  VRAND*COS(ANG) 

VY  =  VRAND*SIN(ANG) 
c 

STDEV  =  1  uO .  *SQRT(DDD/DTSMAL)/CABS(VDRIFT) 

VMAG  =  CABS(  VDRIFT) 
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VDRIFT  -  VDREFT+  CMPLXCVX.VY) 

PARTCUD  -  PARTCLXl)  +  DTSMAL*VDRIFT 
STDEV  -  10O.*VTvAND  /  CABSCVDRIFT) 
IFCIPASS.NE.9999XJOTO  40 

Check  for  particle  hitting  the  boundaries 

L  -  REAL(PARTCL(I))/DX  +  1 
M  -  AIMAG(PARTCL(I))/DX  +  1 
IF(M.GE.IGRILB(L).AND.M.LE.IGRIUB(L)X}OrrO  55 
NHTTB  =  NHTTB  +  1 
HTTBCNHITB)  =  I 

55  IF(IGRLB1(L).EQ.OXjOTO  59 

IFCM.LE.IGRUBl(L).AND.M.GE.IGRLBlCL)XjOrrO  58 
GOTO  59 

58  NHTTB  =  NHTTB+1 
IHITBCNHITB)  =  I 

59  CONTINUE 
IF(IPASS.NE.9999XiOTO  40 

60  CONTINUE 
RETURN 
END 
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SUBROUTINE  BOUNDR(DX,NGRIDX,INDPRN) 

COMPLEX  SPCEN.PARTCUlOOO) 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /ASB/SPCEN,PARTCL,NPTCL,NHrrB,IHITB(l 000),TYPBND(4, 300) 
DIMENSION  NPTBND(4,300),IDUM1(300),IDUM2(300) 

C 

C  This  subroutine  handles  adsorption  and  rejection  at  the  river 
C  boundaries 

C 

C  Last  date  of  revision  March  04,1985 

C 

DO  10  I-l.NGREDX 
DO  10  K=*l,4 
10  NPTBND(K,  I)=0 
DO  80  I=>1,NHITB 
J  -  IHITBd) 

L  -  REAL(PARTCLCJ))/DX  +  1 
M  -  AIMAG(PARTCLCJ))/DX  +  1 
C 

C  Check,  if  the  particle  is  below  the  lower  boundary,  If  so  assign  it 

C  it  to  the  boundary  grid  and  count 

C 

IF(M.GE.IGRILB(L)XjOTO  20 

if(m.eq.(igrilbCl)-  l))GOTO  15 

XI  -  REAUPARTCL(J)) 

Y1  -  IGRILB(L)*DX  -  1.5*DX 
PARTCLd)  -  CMPLX(X1,Y1) 

15  NPTBND(1,L)  =  NPTBND(l,L)  +  1 

GOTO  80 
C 

C  Check  if  the  particle  is  above  the  upper  boundary,  If  so  assign  it 

C  it  to  the  boundary  grid  and  count 

C 

20  IKM.LE.  IGRIUB(L)XjOTO  40 

ihm.eq.(igriub(l)+i))goto  30 
xi  -  reaUpartclCj)) 

Y1  -  IGRIUB(L)*DX  +  DX/2. 

PARTCLd)  -  CMPLX(Xl.Yl) 

30  NPTBND(2,L)  *  NPTBND(2,L)  +  1 

GOTO  80 
C 

C  If  it  didn’t  belong  to  the  two  categories  above  it  must  be  in  the 
C  Island,  therefore  assign  to  the  nearest  boundary,  and  count. 

C 

40  Y2  -  AIMAG{ PARTCLd ))-IGRLBl(L)*DX  +  0.75*DX 

Y3  -  IGRUBl(L)*DX  -  0.25*DX  -  AIMAG(PARTCLd)) 
IF(Y2.LT.Y3)PARTCLd)  -  PARTCLd)  -  CMPLX(0.,Y2) 

IFCY2 .LT. Y 3)NPTBND(3 ,L)  -  NPTBND(3,L)  +  1 
IF(Y3.LT.Y2)PARTCLd)  -  PARTCLd)  +  CMPLX(0.,Y3) 
ff(Y3.LT.Y2)NPTBND(4,L)  -  NPTBND(4,L)  +  1 
80  CONTINUE 

C 

C  No.  of  particles  in  each  boundary  grid  has  been  determined 

C  Now  check  for  the  boundary  type  and  re-entrain  the  excess  particles 
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C 

IFClNDPRN  .EQ .  1  )WRITE(* , 300) 

DO  220  Ll-l.NGRIDX 
NBNDR  =  2 

IF(IGRLBl(Ll).NE.0)NBNDR-4 
DO  210  K-l, NBNDR 
lHNPTBND(K,Ll).EQ.O)GOTO  210 
IALOWD  =  0.5  +  Cl .  -TYPBND(K,Ll))*NPTBND(K,Ll) 
C  IFClNDPRN.EQ.  l)WRITE(*f  310)K,L1  ,NPTBND(K,Ll) 

KOUNT  -  0 
I  -  0 

90  I  -  I  +  1 

rKl.GT.NHTTEXjOTO  205 
J  =  MTB(I) 

L  =  REAL(PARTCL(  J))/DX  +  1 
IKL.NE.LIXjOTO  90 
M  -  AIMAG(PARTCL(  J  ))/DX  +  1 
IFCK.NE.lXXTTO  110 
IFCM-NE.IGRILB(T )-  l)GOTO  90 
KOUNT  =■  KOUNT  +  1 
lHKOUNT.IJE.IALOWD)GOTO  90 
XCO-L*DX  -  0.5*DX 
YCO-M*DX  +  0.5*DX 
PARTCLCJ)  -  CMPLX(XCO.YCO) 

NHTTB  =  NHTTB  -  1 
DO  105  II  ~I, NHTTB 

105  mrrBCii)  -  hhtbCii+i) 

IHITB(NHIT&4-l)=0 
M-l 
GOTO  90 
C 

110  EF(K.NE.2)GOTO  130 

IFCM.NE.IGRIUB(L)+lX50TO  90 
KOUNT  =  KOUNT  +  1 
L-CKOUNT.LE.  IALOWDXKJTO  90 
XCO-  L*DX  -  0.5*DX 
YCO=M*DX  -  1.5*DX 
PARTCLCJ)  -  CMPLX(XCO,YCO) 

NHTTB  =  NHTTB  -  1 
DO  115  II  -I, NHTTB 

115  ihitb(ii)  =  ihitbCh+i) 

IHITB(NHrrB+l)=0 
I-I-l 
GOTO  90 

c 

130  IFCNBNDR  .EQ .  2XJOTO  90 

IF(K.NE;3)GOTO  150 
IFCM.NE.IGRLBl(L)X50TO  90 
IF(lGRUBl(L).NE.IGRLBl0L)X3OTO  140 
XXX  -  aimag(partcijCj))-(igrlbiCl)-i)*dx 
if(xxx.gt.o.5*dxXkdto  90  - 

140  KOUNT  =  KOUNT  +  1 

IFCKOUNT.LE.IALOWDXJOTO  90 
XCO=L*DX  -  0.5*DX 
YCO-M*DX  -  1.5*DX 
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PARTCLCJ)  -  CMPLXCXCO.YCO) 

NHTTB  -  NHTTB  -  1 
DO  125  II  -I, NHTTB 
125  IHrTBOl)  =  MTIBGl+l) 

IHITB(NHITB+l)-0 
I-I-l 
GOTO  90 
C 

150  lKK.NE.4)GOTO  90 

IF(M.NEJGRUBl(L))GOTO  90 
IF(IGRUB1(L).NE.IGRLB1(L)X30T0  160 
XXX  -  IGRUB1(L)*DX  -  AIMAG(PARTCL(J)) 
IF(XXX.GT.0.5*DX)GOTO  90 
160  KOUNT  -  KOUNT  +  1 

IKKOUNT.LE.IALOWD)GOTO  90 
XCO-L*DX  -  0.5*DX 
YCO-M*DX  +  0.5*DX 
PARTCLCJ)  =  CMPLXCXCO.YCO) 

NHTTB  -  NHTTB  -  1 
DO  135  II  -I.NHTIB 
135  IHITBCII)  -  IHlTBCn+l) 

IHITBCNHrr&Hl)-»0 
I-I-l 
GOTO  90 

205  CONTINUE 

210  CONTINUE 
220  CONTINUE  . 

IF(INDPRN.EQ.0)RETURN 
DO  430  K-1,4 
KOUNT-O 

DO  410  L»1,NGREDX 
IF(NPTBND(K.L).EQ.O)GOTO  410 
KOUNT  -  KOUNT+1 
IDUM 1  (KOUNT)-L 
IDUM2(KOUNT)-NPTBND(K,L) 
IF(KOUNT.GT.250)WRnEC420) 

410  CONTINUE 

IFCKOUNT.EQ . OXKTTO  430 
Kl-1 

K2 -KOUNT 

EFCKOUNT.GT.2  8)K2-2  8 
415  WRITE(*,440)K,(IDUM1(I),I=K1  ,K2) 

WRTTE(*>450XIDUM2(I).I-K1  ,K2) 

EF(K2  .GE.KOUNT)GOTO  430 
K1-K2+1 
K2-K1+27 
GOTO  415 
430  CONTINUE 
RETURN 

300  FORMATC/25X,’Oil  in  River  Banks’) 

440  ’FORMATt/’  Bank’, 12,’;  X-Grid’,28I4) 

450  FORMAT(6X,’Particles’(28I4) 

310  FORMAT(5X,  3(13 , 3X)) 

END 
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SUBROUTINE  DISOLU(SPAREA, SOLBLT.TMET.SPILDT.API.DELDIS .TOTDIS) 
C 

C  This  subroutine  computes  the  amount  of  oil  dissolved  in  water 
C  The  solubility  of  oil  is  so  low  that  it  does  not  affect  the 

C  trajectory  (spreading),  but  is  important  for  environmental  impact 

C  assesment.  —  The  working  units  in  this  subroutine  is  METRIC 
C 

C  Last  date  of  Revision  :  October  15,  1985 
C 

C  Explanation  of  variables 

C  DISOLK.  -  Dissolution  mass  transfer  coefficient  1  cm/hr 
C  or  2.7777E-06  m/sec 

C  SOLBLT  -  Solubility  of  fresh  oil  (g/cu  m) 

C  ARBAR  -  mean  area  of  slick  during  the  time  step  (sq.  m) 

C  DELDIS  -  amount  of  oil  dissolved  during  time  step  (grams) 

C  SPAREA  -  Free  surface  area  of  spill  (sq.  ft) 

C  SPAICE  -  Area  of  spill  under  ice  (sq.  ft) 

C 

COMMON  /ICE/NICEX1(20),NICEY1(20),NICEX2(20),NICEY2(20),NICERG, 

$  AMIUO ^ANICE, IPOS  1(2 0) , IPOS2(20) ,  SPAICE 
DATA  DISOLK/2.7777E-06/ 

SPAR2=(SPAREA+SPAICE)/10.76 
ARBAR  =(SPARl+SPAR2)/2.0 
SPAR1=SPAR2 
T1  -(TIMET- SPILDT)/36000 
T2=TTMET/36000. 

DELDIS=-DISOLK*ARBAR*SOLBLT*36E3*(EXP(-T2)-EKP(-Tl)) 

TOTDIS=TOTDIS+DELDIS 

RETURN 

END 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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SUBROUTINE  EVAPORCAPl.TENV.WNDSPD.VMOL.VZERO.SPAREA.SPILDT.JSTEP) 

This  subroutine  computes  evaporatioon  rates  based  on 
Mackay,  Patterson  and  Nadeau  ’  s  theory. 

In  this  subroutine  metric  unit  system  is  used.  The  reason  for 
for  using  units  differnt  units  from  other  subroutine  is  to  make 
cross  reference  with  theory  easier. 

Last  date  of  revision  October  29,1985 


Explanation  of  variables  used  in  EVAPOR 
AKM  -  mass  transfer  coeff.  Km  Cm/s) 

PO  -  vapor  pressure  at  TENV  (atm) 

C  -  coefficient  C  at  TENV 

FEVP2  -  fraction  evaporated 

JSTEP  -  current  time  step 

RGAS  -  gas  constant:the  values  of  RGAS  in  differnt  units  are 
1.9872L  cal/deg  mole 
8.31470  joules/deg  mole 

-  82.0597  cc-atm/deg  mole 

-  hree  surface  area  of  spill  (sq.  ft) 

SPAICE  -  Area  of  spill  under  ice  (sq.  ft) 

COMMON  /BLCXX7/SPGOIL,ANrU, SIGMA AK2IAK2V.AK2T, 

S  VOLPAR,VOLPIE(8),SLICKR(8) 

COMMON  /SE/FEVP1,FEVP2,CEVP,T0EVP 
DATA  RGAS/8.3147/ 

DATA  SCKET,SUMC.SUMP0/3*0./ 

SPAR2=SPAREA/10.76 
ARBAR=(SPAR  2+SPAR 1  )/2 .0 
SPAR1=SPAR2 

IF(WNDSPD.LT.0.000 1  )WNDSPD=0 .00 1 
AKM  =  0.0025*WNDSPD**0.78 
C=CEVP 
T0=T0EVP 

IFCAPI.LT. l.OXiOTO  50 
C  -  1 158. 9*API**(- 1.1435) 

T0=542.6-30.27*API+1.565*API**2-3.439E-02*API**3+2.604E-04*API**4 
P0=  EXP(l0.6*(l  -TO/TENV)) 

CC=  C*283./TENV 
SUMPO  =  SUMPO  +  PO 
SUMC  -  SUMC  +  CC 
POBAR  =  SUMPO/ JSTEP 
CBAR  =  SUMC  /JSTEP 
TOIL  -  TENV 

AKE  =  AKM*ARBAR*VMOL/(RGAS*TOEL*VZERO) 

SCKET  =  SCKET  +  CBAR*AKE*SPELDT*10.137E04 

SUME  -  SUME  +  AKE*SPILDT*10.137E04 

FEVP2  -  (ALOGCPOBAR)  +  ALOGCSCKET+1  ./POBAR))/CBAR 

IF(FEVP2.GT.0.6)  FEVP2=0.6 

RETURN 

END 
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SUBROUTINE  NDCONV(NBRP  1 ,  IRCODE) 

This  subroutine  reads  data  on  water  level  and  discharge  according 
to  the  sequence  of  ONE-D  flow  model  and  then  converts  to  the 
sequence  required  by  Oilspill  model.  If  both  have  the  same 
sequence  of  numbering  this  subroutune  is  not  required. 

This  subroutine  is  specifically  for  three  rivers  for  which  already 
a  1-D  model  is  availble 

Code  River 

1  St.  Clair 

2  Detroit 

3  Upper  St.  Diary's 

4  Lower  St.  Mary's 

Last  date  of  revision  :  August  13,  1986 


DIMENSION  DWL(22),DQ(22))NPTS(4) 

INTEGER  RIV1(16),RIV2(16),RIV3(16),RIV4C16) 

COMPLEX  VSTRM(99,16),CORDV(99,16),CORDLB(99) 

COMPLEX  VWIND.VDRIFT 

COMMON  /VEL/VSTRM,CORDV,CORDLB,Q(30),'WL(30),TICE(99,20), 

$  YWID(99,20),Z(99,20),ZD(99),NSLSCT(99),SCrANG<99), 

$  LCSTSQ(30),NSTUBE(99),NUMCON(99),NFIRCO(99),NSECO(99),KINTM 
DATA  RIV1/1,2,3,4,5,5,7,6,7,8,9,5*1/ 

DATA  RIV2/1, 14, 3,16, 4, 6,7, 8, 9, 10,11, 18, 13, 20, 21, 22/ 

DATA  RIV3/1,2,3,4,5,6,1,9*1/ 

DATA  RIV4/1, 9, 10, 3, 4, 5,6, 7, 11, 13,1?, 5*1/ 

DATA  NPTS/9,22,6,13/ 

N-NPTS(IRCODE) 

DO  10  1=1, N 

READ(7 ,  *)DWL(I),DQ(I) 

10  CONTINUE 

DO  20  I=1,NBRP1 

IFClRCODE.EQ.  l)K=RIVl(l) 

IF(IRC0DE.EQ.2)K=RIV2(I) 

EF(TRCODE.EQ.3)K=RIV3Cl) 

IF(IRC0DE.EQ.4)K=RIV4(I) 

wl(i)=dwlCk) 

Q(I)=DQ(K) 

20  CONTINUE 

IF(lRC0DE.EQ.2)Q(l3)=Q(l2)-f-Q(l  l) 

IF(IRC0DE.NE.  DRETURN 

WII7)=DWL(6)+  (DWL(5)-DWLC6))*20630./35680. 

Q(5)  -  DQ(6)*0.7 
Q(6)  =  DQ(6)*0.3 
RETURN 
END 


153 


Subroutine  ORIENT 


SUBROUTINE  ORIENTtINDXID.DX) 

C 

C  This  program  computes  the  Orientation  of  the  oil  slick 
C  and  Aspect  ratio. 

C  If  ASPECT  >3  The  Slick  will  be  treated  as  1-D. 

C  Last  date  of  Revision  :  Oct  17,1985 

C 

C  INDX1EW} 

C  INDX1D-1 

C  INDX1D-2 

C  INDX1D-3 

C  INDX1D=4 

C  INDX1D=5 

C 

COMPLEX  SPCEN, PARTCLClOOO) 

COMMON  /SO/IMOVINC 1 000) ,  YSHIFTC 1 000), NMOVIN ,  S SHIFT 
COMMON  /ASB/SPCEN,PARTCL,NPTCL,NHrrB,IHrTB(l000),TYPBND(4,300) 
COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
DATA  Pl/3. 141592/ 

NMOVIN  *0 
INDX1D  =  0 
COUNT  -  0. 

SPCEN  -  (0.,0.) 

C 

C  Find  the  indeces  of  moving  particles  and  assign  them  to 
C  array  IMOVIN0.  Also  compute  the  spill  center  (SPCEN) 

C 

DO  30  I=1,NPTCL 
DO  15  J=1,NHTTB 

ini.cQ.iHnB(J))GOTO  30 
15  CONTINUE 

NMOVIN  “NMOVIN + 1 

IMOVIN(NMOVIN)=I 

SPCEN  -  SPCEN  +  PARTCLO) 

COUNT  -  COUNT  +  1. 

30  CONTINUE 

SPCEN  -  SPCEN/COUNT 
C 

C  If  there  is  an  island,  any  particles  in  the  Northern  Island  are 

C  shifted  in  (-)y-dir  by  a  distance  -  width  of  island  at  that  point. 

C  IMPORTANT  :  The  particles  are  moved  back  by  equal  amounts  in 
C  SPRDAX,  SPRD1X  or  SPRD1Y  subroutine. 

C 

SSHJFT  =  0. 

DO  430  1=1  .NMOVIN 
J-IMOVIN(I) 

YSHIFTC  J)=0. 

L=REAL(PARTCL(  J))/DX+ 1 
IF(IGRLB1(L).EQ.O)GOTO  430 
M=AIMAG(PARTCL(J))/DX  +  1 
IFCM.LE.IGRUBl(L))GOTO  430 
Y  SHIFTC  JMlGRUB  1  (L)  -  IGRLB 1  (L)+ 1  )*DX 
PARTCL(j  )=PARTCL(J)  -  CMPLX(0 . ,  YSHIFTC  J)) 

sshift=sshift+yshiftCj) 


Axi-symmetrical  spreading 
One-D  spreading  in  Y-dir  use  SPRD1Y 
One-D  spreading  in  X-dir  use  SPRD1X 
Axi- symmetrical  spreadingCShort  slick) 

One-D  spreading  in  Y-dir  use  SPRD1Y  (Short  slick) 
One-D  spreading  in  X-dir  use  SPRD1X  (Short  slick) 
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430  CONTINUE 
C 

C  If  particles  are  shifted,  re-Compute  the  Spill-Center 
C 

SPX-REAL(SPCEN) 

SPY-AIMAG<SPCEN) 

IFCSSHIFT.LT.DXXjOTO  450 
SPY-SPY  -  SSHHT/NMOVLN 
SPCEN  -  CMPLX(SPX,SPY) 

450  SUMDC-O. 

SUMTY-O. 

SUMDCY  -  0. 

AVG  RAD-0.0 
SPX-REALCSPCEN) 

SPY-AJMAG(SPCEN) 

DO  50  I-l.NMOVLN 
J-IMOVIN(I) 

XX-REAIXPARTCUJ))  -  SPX 
yy-aimag{partcl(j))- SPY 

AVGRAD  -  AVGRAD  +  SQRT\XX*XX+YY*YY) 

SUMIXY  -  SUMDCY  +  XX*YY 
STJMTY=SUMTY+  XX*XX 
SUM1X= S  UMIX+  YY*YY 
50  CONTINUE 

AVGRAD  =  AVGRAD/NMOVIN 
TOP-  -2*SUMIXY 
BOT-  SUMIX  -  SUMIY 
THETA=ATAN2(TOP,BOT) 

THETA-THETA/  2 . 0 

IKTHETA.lt.  0 . 0)THETA=THETA+2  *PI 

CTHETA  -  COSClHETA) 

STHETA  -  SIN(THETA) 

SALONG-O. 

SNORML=0. 

DO  60  I-l.NMOVIN 
J-TMOVIN(I) 

XX-REAUPARTCUJ))-  SPX 
YY-AIMAG(PARTCL(J))- SPY 

SALONG  -  SALONG  +  ABS(XX*CIHETA+YY*STHETA) 
SNORML  -  SNORML  +  ABS(YY*CTHETA-XX* STHETA) 
60  CONTINUE 

SALONG  -  SALONG/NMOVIN 
SNORML  -  SNORML/NMOVIN 
ASPECT  -  SALONG/SNORML 
IKASPECT.LT. l.OTTHETA  -  THETA  +  0.5*PI 
IKASPECT.lt.  1.0)ASPECT  -  SNORML/SALONG 
lKTHETA.GT.2*Pl)THETA-THErA  -  2*PI 
lKASPECT.LT.3.0)GOT0  80 
INDX1D  -  1 

lKTHETA.GT.0.25*PI.AND.THETA.LT.0.75«Pl)INDXlD-2 
IKTHETA.GT.I  .25*PI.AND.THETA.LT.1.75*Pl)INDXlD-2 
80  DEG-  THETA*  1 80 ./PI 

IKAVGRAD.LT.0.5*DX)INDX1D  =  INDX1D+3 

RETURN 

END 
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SUBROUTINE  PLOTNU(DX) 

C 

C  This  subroutine  plots  oil  concentrations  as  the  no.  of  particles 

C  in  each  grid  defined  by  size  DX 

C 

C  Last  date  of  revision  :  Apr  04,  86 
C 

COMPLEX  SPCEN,PARTCL(1000),SPCEN1 

COMMON  /VASB/IGRILB(300),IGRnJB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /ASB/SPCEN,PARTCL,NPTCL,NHITB,IHITB(  1000), TYPBND(4, 300) 
COMMON  / SO/IMOVIN(  1 000),  YSHIFTC 1000), NMOVIN.SSHIFr 
DIMENSION  KOUNT(20,20) 

XXX=REAL(SPCEN) 

YNT=AJMAG<SPCEN)+SSHIFr/NMOVIN 
SPCEN1  =  CMPLX(XXX,YYY) 

C 

C  Set  all  array  elements  such  that  they  print  stars  on  output 

C 

DO  40  1=1,20 
DO  40  J=l,20,2 
KOUNTCl ,  J)=  1 00 1 
KOUNT(I,J+1)=1001 
40  CONTINUE 

LMIN  -  REAUSPCEN1)/DX  -  9 
XMIN1=(IMIN-  1  )*DX 
LMAX=  IMIN  +  19 
JMJ N -A  IMAG(  S  PCEN 1  )/DX  -  9 
YMIN1=(JMIN-  1  )*DX 
JMAX=  JMIN  +  19 
DO  80  1=1,20 
L-LMIN+I  -  1 
EP(L . LT.  1  )GOTO  80 
Ml  =  IGRILBCL)  -  JMIN 
M2  -  IGRIUB(L)  -  JMIN  +  2 
IP(M1.LT.  l)Ml-l 
IF(M2.GT.20)M2=20 
C 

C  Now  set  array  elements  that  corresponds  to  river+boundary  to  zero 

C 

IX)  70  J=M1,M2 

kountCi,j)=o 

70  CONTINUE 

li-C  lGRLBl(L).EQ.O)GOTO  80 

C 

C  This  part  is  for  setting  array  •  ments  to  print  stars  for  Island 

f  " 

Ml  =  IGRIill(L)  -  JMIN  +2 
M2  =  IGRUBlCL)  -  JMIN 
IlXMl.LT.  1)M1=1 
IItM2.GT.20)M2=20 
IFfMl.GT.M2)  GUrO  80 
IX)  75  J=M1,M2 
KC)UNTtI,J)=1001 
75  CONTINUE 
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80  CONTINUE 

Now  check  and  count  the  no.  of  particles  in  the  grid  boxes 

DO  450  I=1,NPTCL 

L  -  (REAL(PARTCL(I))  -XMIN1)/DX+1 
M  -  CUMAG<PARTCL(I))  -  YMIN 1  )/DX+ 1 

IFCL. lt.  1  .OR.L.GT.20)  GOTO  450 

IFCM. LT.  1. OR .M.GT. 20)  GOTO  450 
KOUNTtL ,  M>KOUNT(L  ,M)+ 1 

450  CONTINUE 

WR  ITE(  *,620 )  JMLN ,  JMAX 
WRITEC*,610)  (KOUNT(1,M),M=1,20),IMIN 
DO  580  L=2  19 

WRITE(*,600)  (KOUNTCL.M),M=1,20) 

580  CONTINUE 

’WRITE(*,610)  (KOUNTC20,M),M=1 ,20),IMAX 
RETURN 

600  FORMATC1X.20I3) 

610  FORMAT  IX,  2013,’  -  X  Grid#=’,I3) 

620  FORMAT://’  Y  Grid#=’,I3,T56,I3,’**Y  Grid#*/’  I’.T60,T) 

END 
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SUBROUTINE  PRELSE(DX, SPnJDT.IX , N1,N2, SPCENO ,D  WUD) 

C 

C  'Ihis  subroutine,  to  be  used  for  continuous  spills,  releases 
C  particles  (No.s  N1  to  N2)  at  SPCENO.  Note  that  the  No.  of 

C  particles  released  in  SPILDT  is  NPERDT.  Therefore  NPERDT=N2-N1+1 

C  The  release  will  be  at  equal  intervals  of  time. 

C  This  version30  has  a  modified  advection  term 
c  this  is  version31  with  modified  diff.  coef. 

C 

C  Last  date  of  revision  :  Jun  26,  1986 

C 

COMPLEX  VCAR(  1 2000),  SPCEN  ,PARTCL(  1 000), VWIND.VDRIFT 

COMPLEX  SPCENO, VDR1 

COMMON  /VA 7  VCAR .VWIND.VDRIFT 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLB1(300),IGRUB1(300) 
COMMON  / ASB/SPCEN , PARTCL ,  NPTCL,  NHTTB ,  IHITBC 1000) ,TYPBND(4 ,300) 
COMMON  /BLOCK7/SPGO IL, AN IU, SIGMA ^AK2IHAK2V,AK2T, 

S  VOLPAR,VOLPIE(8),SUCKR(8) 

COMMON  /ICE/NICEX1(20),NICEY1(20),NICEX2(20),NICEY2(20),NICERG, 

S  AMIUO,ANICE,IPOSl(20),IPOS2(20),SPAICE 

C 

C  Input  :  ..  Location  of  spill  center 
C  ,.  Velocity  distribution  in  river 

C  Output:  ..  New  location  of  each  particle 

C 

DATA  PI  73.141592/  . 

IFCNICERG.EQ.0X5OTO  25 

c 

C  DELEQ  -  Equilibrium  thickness  (ft) 

C  UTH  -  Threshold  current  speed  for  slick  movement  (  ft/sec) 

C  UFAIL  -  Failure  velocity  under  rough  ice  cover  (  ft/sec) 

C  FRAMFA  FRiction  AMplification  FActor  denoted  by  TC  in  text 
C  AMIUO  -  Viscosity  of  Oil  in  g/cm-sec 

C 

DELEQ  =  (1.67  -  8.5*(l.0-SPGOIL))/30.48 
UTH  =  (305.79/(88.68-AMRJO))/30.48 
FRAMFA  =  35.55*ANICE  +  1.0 
TF(ANICE.GT.0.045)FRAMFA  =  2.6 
TERMl=SQRKSIGMA*(32.2)**2*62.4*(l.-SPGOIL)) 

U  FAIL=  1 .  5*SQRT(2 .  *(  1  .+SPGOIL)*TERMl/(6  2 . 4*  SPGOIL)) 

ROUGH  =  (ANICE/0.034)**6 
C 

25  I.  -  REAI/SPCEN0)/DX 

M  = A  IMAG(  S  PCEN  0)/DX 
IPOS  =  0 

IF(I..EQ.O)GOTO  117 
DO  115  1.1=1, L 

IPOS  =  IPOS+IGRIUB(Ll)-IGRILB(Ll)+3 

1 1  5  CONTINUE 

117  IPOS  =  lPOS+M-IGRILB(L+l)+3 

if(nict;rg.eq.o)goto  125 

0 

o  determine  whether  the  spill  center  is  under  ice  or  not 

C 
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ICOND-O 

DO  120  K-l.NICERG 

IKIPOS.GE.  IPOS  l(K) -AND.  IPOS. LE.IP0S2(K))IC0ND-1 
IKICOND.EQ.IXjOTO  180 
120  CONTINUE 

C 

C  Advection  velocity  in  free-surface  conditions 

C 

125  VDRIFT  -  0.03*VWIND  +  l.l*VCAR(IPOS) 

GOTO  220 
C 

C  Advection  Velocity  under  Ice 

C 

180  VDRIFT  =(0.0, 0.0) 

UWATER  =  CABS(VCAR(lPOS)) 

iKrough.gt.deleqxkdto  190 

IKUWATER .LT.UTHXjOTO  220 
GOTO  200 

190  IKUWATER .LT.UFAJLXjOTO  220 
200  VDRIFT  =  VCAR(IPOS) 

FDELTA  =  UWATER/SQRT((l.O-SPGOIL)*32.2*DELEQ) 

FK  -  SQRT(FRAMFA/(0. 1 15*FDELTA**2  +  1.105)) 

VDRIFT  =  VDRIFT*(l -FK) 

C 

220  VDR1  =  VDRIFT 
DO  60  I=N1,N2 

DTPTCL  =  SPILOT*a-Nl+l)/(N2-Nl+l) 

SUMDT  =  0. 

IPASS  =  1 

PARTCLO)  =  SPCENO 
VDRIFT  =  VDR1 
C 

40  IKIPASS.EQ.1)G0T0  28 

IKNHITB.EQ.O)GOTO  35 
DO  30  J=1,NHITB 

IKI.EQ.IH3TB(J))GOTO  60 
30  CONTINUE 

35  L  =  REAKPARTCLXI))/DX 

M  =AJMAG(PARTCL(l))/DX 
IPOS  =  0 

IKL.EQ.OXJOTO  517 
DO  515  Ll-l.L 

IPOS  =  IPOS+IGRIUB(Ll)-IGRILB(Ll)+3 
515  CONTINUE 

517  IPOS  =  IPOS+M-IGRILBCL+l)+3 

IKNICERG.EQ.O)GOTO  525 
C 

C  determine  whether  the  spill  center  is  under  ice  or  not 
C 

ICOND=0 

DO  520  K=1,NICERG 

IKIPOS.GE. IPOS  l(K).AND.  IPOS. LE.IPOS2(K))ICOND=l 
IKICOND.EQ.DGOTO  580 
520  CONTINUE 
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C  Advection  velocity  in  free-surface  conditions 

C 

525  VDRIFT  =  0.03*VWIND  +  1.1*VCAR(IP0S) 

GOTO  620 
C 

C  Advection  Velocity  under  Ice 

C 

580  VDREFT  =  (0.0, 0.0) 

UWATER  =  CABS(VCAR(IP0S)) 
lKROUGH.GT.DELEQ)GOTO  590 
IFdJWATER .LT.DTHXJOTO  620 
GOTO  600 

590  IFdJWATER .LT.UFAJL)GOTO  620 

600  VDRIFT  =  VCAR(IPOS) 

FDELTA  =  UWATER/SQRT((l.O-SPGOlL)*32.2*DELEQ) 

FK  -  SQRT(FRAMFA/(0. 1 1 5*FDELTA**2  +  1.105)) 

VDRIFT  =  VDRIFT*(l  -FK) 

620  CONTINUE 

C 

28  VELUPV  =  ABS(REAL(VDRIFT))  +  ABS(AIMAG(VDRIFT)) 

C 

C  The  next  two  statements  prevent  division  by  zero.  86400  is  just  a  large 

C  number  in  this  case  =  no.  secs  in  a  day. 

C 

DTSMAL  =  86400. 

IKVELUPV.GT.0 .0 l)DTSMAL  -  DX/VELUPV 
IK(DTSMAL+SUMDT).GT.ITITTCL)DTSMAL  -  DTPTCL  SUMDT 
IPASS  -  IPASS  +  1 

lute SUMErr+DTSMAL) . GE. DTPTCL)lPAS S  -  9999 
SUMDT  -  SUMDT  +  DTSMAL 
CALL  RANDU(IX,IY,YFL) 

DC  -  IY 
ANG  =  PI*YFL 

CALL  GAUSS(EX,1.0,0.0,VRAND) 

IF  (DDFFUD.LT.0.0)  DDD  -  2.88*CABS(VDRIFT) 

IF  (DIFFUD.GE.0.0)  DDD  -  4*DIFFUD 
VRAND  -  VRAND*  SQRT(DDD/DrSMAL) 

VX  »  VRAND*COS(ANG) 

VY  -  VRAND*SIN(ANG) 

STDEV  -  1 00 .  *SQRT(DDD/DTSMAL)/CABS(VDRIFT) 

VMAG  •=  CABSCVDRIFT) 

VDRIFT  -  VDRIFT  +  CMPLX(VX.VY) 

PARTCLd)  =>  PARTCLd)  +  DTSMAL  “VDRIFT 
STDEV  =  100. ‘VRAND/ CABSCVDRIFT) 

C 

C  Check  for  spill  hitting  the  boundaries 

C 

L  «  REAL(PARTCL(I))/DX  +  1 

m  -  aimacKpartclCO/dx  +  1 
ifXm.ge.igrilb(l).and.m.le.igriub(l))goto  55 

NHITB  =  Mirra  +  1 

HTTBC  Mirra)  =  I 

55  DF(IGRIJ11(L).EQ.O)GOTO  59 

IF(M.LE.IGRUBl(L).AND.M.GE.IGRLBl(L))GOTO  58 
GOTO  59 
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58  NH3TB  -  NHTIB+1 
mrrBCNHrre)  -  i 

59  CONTINUE 
IF(IPASS.NE.9999XjOTO  40 

60  CONTINUE 
RETURN 
END 
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SUBROUTINE  PRINTl(lUT,NBRNCH,NGRIDX,DX) 

This  subroutine  prints  Heading  and  river  configuration  data 
IUT  defines  the  unit  No.  to  which  the  info  will  be  written 
Last  date  of  revision  :  July  17,  1985 

character  *8  DATRUN(2),TIMRUN 

COMPLEX  VSTRM(99,16),CORDV(99,16),VCAR(12000)1CORDLBC99) 
COMPLEX  SPCEN.PARTCUlOOO.VWLND.VDRIFT 
COMMON  /VA /  VCAR ,  VWIND.VDRIFT 

COMMON  /VEL/VSTRM,CORDV,CORDLB,Q(30),WL(30),TICE(99,20), 

S  YWID(99,20),Z(99,20),ZD(99),NSLSClX99),SCrANG(99)I 
$  LCSTSQOO),NSTUBEC99),NUMCON(99),NFIRCO(99),NSECO(99),KINTM 
COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /ASB/ SPCEN , PARTCL ,  NPTCL, NHTTB ,  IHITBC 1 000) ,TYPBND(4 , 300) 
WRUEdUT,  1 0)DATRUN  .TIMRUN 
WRITEClUT,20)NBRNCH,NGRIDX1DX,KINTM 
IS2=0 

DO  100  I=1,NBRNCH 
IS1-IS2+1 
IS2  =  LCSTSQG) 

WRITE(IUT,  30)1,  IS  1  ,IS2 
100  CONTINUE 

WRITE(IUT,40) 

IS2  -  IS2  +1 
DO  110  1=1,  IS2 
J  -  NSLSClXD+l 
IWIDTH  -  YWID(l,J) 

WRITE(lUT,50)l,CORDLB(l),SCrANGa),IWimH,ZD(l),NSTUBE(l), 

$  NUMCON(l) ,  NFIRCO(l) 

110  CONTINUE 

WRITE(IUT,70) 

DO  120  1=1, IS2 
IN=N  SLSCT(l)+ 1 

WRnEClUT,  80)I/YWID(I,  J),z(l,  J),J=1  ,IN) 

120  CONTINUE 

WRITEXlUT,60) 

DO  130  1=1  .NGRIDX 
KNUM=2 

IKIGRLB1(I).NE.0)KNUM=4 

WRITE(IUT,65)I,IGRILB(I),IGRIUB(I),IGRLB1CI),IGRUB1CI), 

S  (TYPBNDCK,I),K-1,KNUM) 

130  CONTINUE 

10  FORMAT*  1H1,///2X,75(’*’)/2X,75(’*’)/’  **\71X, ’**’/’  **’,14X, 

$  ’SIMULATION  MODEL  FOR  OIL  SPILLS  IN  RIVERSM6X, ’**’/’  **\71X, 

S  ’**’/’  **’,7X,T)EVELOPED  AT  -  CIVIL  &  ENVIR.  ENG.  DEPT..  \ 

S  ’aARKSON  UNIVERSITY’, 3X, ’**’/’  **’,7X,’SPONSERED  BY  -  U.S.  ARMY 
$  CORPS  OF  ENGINEERS,  DETROIT  DISTRICT, 3X,’**’ 

S  /’  **’,7 IX,***’/’  **’,9X,’DATE  AND  TIME  OF  RUN  :  ’,2A8,2X,A8 

$  ,13X, **’,71X,’**’/2X,75(’*’)/2X,75(’*0) 

20  FORMAT*///’  GEOMETRIC  PROPERTIES  OF  RIVER’/1H+,1X,29(’_’)// 

$  5X,’NO.  OF  BRANCHES  IN  UNSTEADY  FLOW  MODEL  =’,15/ 

S  5X,’NO.  OF  GRIDS  IN  X-DIRCTION  =’,15/ 

S  5X,’GRID  SIZE  IN  ft.’,23X,’=’,F6.0/ 
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$  5X,’NO.  OF  INTERPOLATIONS  BEIWN  SECTIONS  -MS// 

$  5X,’SECTIONS  IN  EACH  BRANCH71H+,4X,23(’_’)// 

$  5X, ’BRANCH  SECTIONS  INVOLVED’/ 1 5X,  TROM  TO’) 

30  FORMAT(3(7X,I2)) 

40  F0RMAT(1H1,//11X, ’INFORMATION  ON  RIVER  SECTIONS71H+,10X,29(’_’), 

$  //2X, ’SECTION  Lower  bank  intersection  Angle  Width  Ref  datum  ’, 
$  ’  No  str  Cond.  Connect’/12X, 

$  'X-CORD  Y-CORD  (rad)  (ft.)  for  depth  tubes  No.’, 

$  ’  next  1st’) 

50  FORMAT(4X,I2,5X,F3.1,2X,F8.1,6X,FS.3,I7,F9.2,3I8) 

60  FORMAT*  1H1///10X/GRID  CONFIGURATION  and  BOUNDARY  TYPES  ’, 

$  ’OF  SCHEMATIZED  RIVER71H+.9X  ,58(’_’)// 

$  ’  X’,15X,T  GRID  OF’,17X, ’REJECTION  RATE  PER  TIME  STEP’/ 

S  ,’  GRID’, 20  Bank  1  Bank  2  Bank  3  Bank  4  ’)) 

65  FORMAltI4,2X,4(3X,I3,2X),5X,4(lX,F5.4,2X)) 

70  FORMAT*///,  10X, ’Geometry  of  X-Sections’/lH+,9X,22(’_’)// 

$  ’  SCrN’,10X,T)istance  and  Depth  (ft.)  in  pairs  of  data’) 

80  FORMAT(/I3,1X,9(F5.0,’:’,F5.1,3X)/4X,9(F5.0,’:’,F5.1,3X)) 

RETURN 

END 
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SUBROUTINE  SPRDAX(DX,SPILDT, TIMET, INDPRN.SPAJREA.SPLTIM.SPLRAT) 


This  subroutine  handles  the  Axi- symmetrical  spreading  of  spill 
due  to  gravity,  viscous  and  surface  tension  forces 
This  version  includes  spreading  under  ice  cover. 


Last  date  of  revision  :  October  18,  1985 
COMPLEX  SPCEN.PARTCLClOOO) 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /ASB/SPCEN,PARTCL,NPTCL,NHITB,IHITB(1000))TYPBND(4>300) 
COMMON  /BLOCK7/SPGOILANIU, SIGMA AK2IAK2V.AK2T, 

$  VOLPAR  ,VOLPIE(8),  SLICKR(8) 

COMMON  /SO/IMOVIN( 1 000) , YSMFlt  1 000),  NMOVIN ,  SSMFT 
COMMON  /SE/FEVP1,FEVP2,CEVP,T0EVP 

COMMON  /ICE/NTCEXl(20),NICEYl(20),NICEX2(20),NICEY2(20),NICERG, 

$  AMIUO,ANICE,IPOSl(20),IPOS2(20),SPAICE 
COMMON  /SPREAD/  RADIUS(l 000), NTRACKC 1000) 


The  spill  area  is  divided  into  8  pie  segments  around  the  spill 
center.  Particles  in  each  pie  sreads  according  to  modified 
Fay’s  law’s  for  axi-symmetrical  case. 

(see  text  for  details) 

Input  :  ..  Spill  center 

..  Location  of  each  particle 
..  oil  properties 

Output:  ..  New  loaction  of  each  particle 

Explanation  of  variables  used  only  in  this  subroutine 
V0LPIE(I)  ..  an  array  containing  the  volume  of  oil  in  each  pie 
segment  at  previous  time  step  NOTE:  volume  stored  is 
8  times  the  volume  in  pie 

RADIUS(I)  --  distance  to  particles  in  pie  from  spillcenter.  It  is 

assumed  that  no  more  than  500  particle  are  in  a  pie  any  time 
SPAREA  -  Free  surface  area  of  spill  (sq.  ft) 

SPAICE  -  Area  of  spill  under  ice  (sq.  ft) 

ICOND  «  0  -  Oil  in  the  pie  has  free  surface  conditions 
-  1  -  Oil  in  the  pie  is  under  ice 

DATA  PI.ROWAT.G/3. 141592,  1.92,  32.2/ 

Evaluate  some  constants  to  be  used  in  subsequent  computations 

DELTA  -  1.0  -  SPGOIL 

AKINER  -  0.25  * AK2  I*(DELTA*G)**0 . 2  5 

AKVISC  -  AK2V*(DELTA*G/SQRT(ANIU))**0. 166 

AKSURF  =  0.75*AK2T*(SIGMA**2/(ROWAT**2*ANIU))**0.25 

AKICE  =  0.0056666*((1-SPGOIL)*32.2*SPLRAT**2)**0.16666/ANICE 

Compute  the  mean  radius  for  all  moving  particles 


TOTRAD=0. 

DO  7  I  -1,  NMOVIN 
J-IMOVIN(I) 
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TOTRAD  -  TOTRADfCABSCPARTOiJ)-  SPCEN) 

7  CONTINUE 

TOTRAD  -  TOTRAD/NMOVIN 
SPX  -  REALCSPCEN) 

SPY  -  AIMAGCSPCEN) 

SPAREA  -  0.0 
SPAICE  -  0.0 
C 

C  Loop  500  is  working  for  one  pie  at  a  time 
C 

DO  500  IPIE-1,8 
ANG1  -  (lPIE-l>PI/4. 

ANG2  -  ANG1  +  PL/4. 

NPTPIE  -  0 
NPTICE  -  0 
ICOND  ■»  0 
DO  10  I-l.NPTCL 
10  NTRACK(l)-0 
C 

C  The  next  loop  20  is  for  finding  the  ID  no’s  of  particles  belonging 
C  to  the  pie.  Radial  dist.  to  particle  from  center  is  also  computed 

C  and  stored  in  RADIUSO.  NTRACKO  stores  the  ID’s  of  particles. 

C 

DO  20  I-l.NMOVTN 
J-IMOVIN(I) 

ATX2  -  REALCPARTCU  J))  -  SPX 
ATX1  -  AIMAG(PARTCL(J))-SPY 
ANG=ATAN2(ATX1  ATX2) 

IFCANG.LT.0.0)ANG  -  ANG  +  2.*PI 
IFCANG.LT.ANG1  .OR ANG.GE.ANG2X30T0  20 
RAD  -  CABSCPARTCIjC J)  -  SPCEN) 

IFCRAD.GT.2.20nUTRAD)GOTO  20 
NPTPIE  -  NPTPIE+1 
RADRJS(NPTPIE)  -  RAD 
NTRACKCNPTPIE)  •=  J 
ffCNICERG.EQ.OXKDTO  20 
L  -  REAUPARTCL(J))/DX 
M  -<AIMAG(PARTCL(J))+YSHIFTCJ))/DX 
IPOS  -  0 

IF0L.EQ.OX5OTO  117 
DO  115  L1-1.L 

IPOS  -  IPOS+lGRIUBCL,l)-IGRILB(Ll)+3 
115  CONTINUE 

117  IPOS  -  IPOS+M-IGRELB(L+l)+3 

DO  120  K-l.NICERG 

IF(  IPOS. GE. IPOS  lGO  .AND. IPOS. LE.IPOS2(K))NPTICE»NPTICE+l 
120  CONTINUE 

20  CONTINUE 

C 

C  NO  PARTICLES-  NO  SPREADING 
C 

IFCNPTPIE.LT.  lXJOTO  500 
RMEAN-0. 

DO  40  I- 1. NPTPIE 
40  RMEAN-RMEAN+RADIUS(I) 
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RMEAN  =RMEAN/NPTPIE 
C 

C  Check  if  this  pie  should  spread  as  free-surface  or  ice  conditions 
C  and  if  it  is  Ice  conditions  is  the  spilling  still  continuing. 

C 

iKfloatCn  ptice)/flo  atCnptpie)  .GT.O .  S)IC0ND=1 
eKicond.eq.  i  .and.ttmet.gt.spltimXjoto  170 
c 

C  Determine  the  rate  of  spread  at  pie  radius 
C 

VOLNOW  =  VOLPAR*NPTPIE*8 
TIMBAR  -  TIMET  -  SPJLDT/2.0 
VOLBAR  KVOLNOW+VOLPIE(lPIE))/2 .0 
IKICOND.EQ.  l)GOTO  47 

TVISC=(AK2V/AK2I)**4*(VOLBAR/(DELTA*G*ANIU))**0.333 
TERMIN=823.5*(ROWAT/SIGMA}**0.6666*SQRTCVOLBAR)*ANIU**0.3333 
$  /AK2T**1.3333 

iKTIMBAR  .GT.IERMINXJOTO  500 
TSURFT  =  (AK2V/AK2T)**2*(DELTA*G*ANIU)**0 .3333 
S  *(ROWAT/  SIGMA)*VOLBAR**0 .6666 
iKTIMBAR .GT.TSURFT)  GOTO  45 
DVDT  -  VOLNOW*(FEVPl  -FEVP2)/SPILDT 
iKTIMBAR. LE.TVISC)  DRDT  - 

$  AKINrEiRKDVDT+2*VOLBARAlMBAR)*SQRT(TIMBAR)/(VOLBAR**0.75) 
iKtimbar.gt.tvisc)drdt  - 

$  AKVISC*(DVDT/3.+VOLBAR/(T[MBAR*4))mMBAR**0.25AfOLBAR**0.666 
GOTO  48 

45  DRDT  -  AKSURF/CTTMBAR**0.25) 

47  IF(IC0ND.EQ.1)DRET  -  AKICE/(T[MBAR**0.33333) 

48  VOLPlKlPIE)  -  VOLNOW 
SPRATE  =  DREfPSPELDT/RMEAN 

C 

C  Rate  of  spreading  at  mean  pie  radius  has  been  computed.  Now  spread 
C  the  particles  in  the  pie  proportionately. 

C 

DO  140  I=1,NFTPIE 
J=NTRACK(I) 

RADOLD  -  CABS(PARTCLCJ)-SPCEN) 

RADNEW  =  RADOIX>*(SPRATE+l) 

IK RADNEW.LT. 0.0)RADNEW  -  0. 

RADIUS(l)  -  RADNEW 
X  -  REAIXPARTCLC J )  -  SPCEN) 

Y  -  AIMAG(PARTCL(J)- SPCEN) 

X  =  X  *  R  ADNEW/  RADOLD 

Y  =  Y  *  RA  DNEW/RADOLD 
PARTCIlJ)  =  SPCEN  +  CMPLX(X.Y) 

140  CONTINUE 

RMEAN=0. 

DO  160  1=1  .NPTPIE 
160  RMEAN=RMEAN+RADIUS(I) 

RMEAN  =RMEAN/NPTPIE 
170  SLICKR(IPIE)  =  RMEAN 

IKICOND.EQ.O)SPAREA  -  SPAREA  +  PI*RMEAN**2/8. 

IKIC0ND.EQ.1)SPAICE  =  SPAICE  +  PI*RMEAN**2/8. 

IKINDPRN .  EQ.  1  )WRITK*,220)IPIE,NPTPIE(RMEAN 
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500  CONTINUE 
C 

C  Check  for  spill  hitting  the  boundaries 
C 

DO  60  I-l.NMOVIN 
J-IMOVIN(I) 

IFC Y SHIFlX J )  .LT.  DXXJOTO  54 
PARTCL(J)“PARTCL(J)+CMPLX(0.,YSHIFT(J)) 

l«real(  partcl(  j  ))/DX  +  1 

M-AIMAG(PARTCL(J))/DX  +1 
IHM.GT.IGRUBIOGOTO  54 
X-REALCPARTCLCD) 

Y-IGRUBl(L)*DX-0.25*DX 

PARTCUD-CMPLXCX.Y) 

NHTTB=NHITB+1 
IHITB(NHrrB)=J 
GOTO  60 

54  L  =  REAUPARTCL(J);)/DX  +  1 
M  -  AIMAG(PARTCL(J))/DX  +  1 
IF(M.GE.IGRILBCL).AND.M.LE.IGRIUB0L)XjOrrO  55 
NHTTB  -  NHTTB  +  1 

DETBCNHITB)  -  J 

55  IKIGRLB1(L).EQ.OXJOTO  60 

IF(M.LE.IGRUBlCL).AND.M.GE.IGRLBlCL)XjOrO  58 
GOTO  60 

58  NHTTB  =»  NIHTB+1 

HETBCNHITB)  =  J 
60  CONTINUE 

RETURN 

210  FORMAlU  WARNING  *  MAY  CAUSE  ERRORS  PARTICLES  IN  PIE  EXCEED  500’) 
220  FORMAT(I3,8X,I3,10X,F7.0) 

END 
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SUBROUTINE  SPRD1  X(DX, SPILDT.TIMEr.INDPRN, SPAREA) 

COMPLEX  S  PCEN ,  PARTClX 1000) 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /ASB/SPCEN,PARTCL,NPTCL,NHITB,IH3TB(l000),TYPBNlX4,300) 
COMMON  /BLOCK7/SPGOIL,ANIU,  SIGMA,AK2I,AK2V,AK2T, 

S  VOLPAR , VOLPIE( 8), SLICKR( 8) 

COMMON  /BLOCK8/AKC10,AKC20,AKC30 
COMMON  / SO/IMOVLN( 1 000) , Y SHIFTC 1 000), NMOVIN ,  SSHIFT 
COMMON  /SE/FEVP1,FEVP2,CEVP,T0EVP 

COMMON  /ICE/NICEX1(20),NICEY1(20),NICEX2(20),NICEY2(20),NICERG , 

S  AMIUO, ANICE, IPOS  1(20), IPOS2(20),SPAICE 
COMMON  /SPREAD/  RADIUS(l 000), NTRACKC 1000) 

DIMENSION  SPRATE(2),NPT(2),XLE(2) 

Last  date  of  revision  :  april  11,  1986 

This  Subroutine  handles  one  dimensional  spreading  in  X-direction 
The  spill  area  is  divided  into  strips.  Particles  in  each  strip 
spreads  according  to  spreading  law  for  one -dimensional  case. 

(see  text  for  details) 

Input  :  ..  Spill  center 

..  Location  of  each  particle 
..  oil  properties 

Output:  ..  New  loaction  of  each  particle 

Explanation  of  variables  used  only  in  this  subroutine 
RADIUS(I)  --  distance  to  particles  in  a  strip  from  stripcenter. 

A  maximum  of  500  particles  can  be  in  a  strip  at  any  time 
IMOVIN(I)  --  Index  in  array  PARTCL  of  moving  particles 

ex.  1,3,4,5,7,11,12,13 .  etc. 

NMOVIN  --  Number  of  Moving  Particles 
SPAREA  -  Free  surface  area  of  spill  (sq.  ft) 

SPAICE  -  Area  of  spill  under  ice  (sq.  ft) 

ICOND  =  0  -  Oil  in  the  strip  has  free  surface  conditions 
-  1  -  Oil  in  the  strip  is  under  ice 

DATA  PI.ROWAT.G/3. 141592,  1.92,  32.2/ 

Evaluate  some  constants  to  be  used  in  subsequent  computations 

DELTA  =  1.0  -  SPGOIL 

AKIN ER  =  AKC10*(G*DELTA/DX)**0.3333 
AKVISC  =  AKC20*(G*DELTA)**0.2S/(SQRT(DX)*ANTU**0.125) 

AKSURF  -  AKC30*SQRT(SIGMA/ROWAT)/(ANIU**0.25) 

C  To  minimize  some  later  computing,  determine  X-grid  boxes  of 
C  extreme  particles. 

C 

LMAX-0 
I,MIN=1000 
DO  40  1=1, NMOVIN 
TTMOVIN(r) 

I  .= AIM  ACX  P  ARTCL(  J  ))/DX+ 1 
IF(L.GT.IAfAX)LMAX=L 
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IF(L.LT.LMIN)LMIN-L 
40  CONTINUE 

SPAREA  =  0.0 
SPAICE  -  0. 

C 

C  Loop  500  :  One  strip  at  a  time 
C 

DO  500  ISTREP-LMIN.LMAX 
XBAR-0. 

NPTSTR  -  0 
NPTICE  -  0 
ICOND  -  0 
DO  50  I=l,NMOVIN 
J-IMOVIN(I) 

L=AIMAG(PARTCL(J))/DX+ 1 
lKlSTRIP.NE.L)GOTO  50 
NPTSTR  -  NPTSTR +1 
NTRACK(NPTSTR)  =  J 
*  XBAR  =  XBAR+REaUPARTCUJ)) 

c 

lKNICERG.EQ.O)GOTO  50 
L  -  R  FAUC  PARTCLC J  ))/DX 
M  -<AIMAG(PARTCLC J  ))+ Y SHIFlX J ))/DX 
IPOS  =  0 

IF(L.EQ.OXJOTO  117 
DO  115  L1-1.L 

IPQS  -  IPOS+IGRIUB(Ll)-IGRILB0Ll)+3 
115  CONTINUE 

117  IPOS  -  IPOS+M-IGRILB(L+l)+3 

DO  120  K-l.NICERG 

IFaPOS.GE.IPOSl(l0.AND.IPOS.LE.IPOS2(K))NPTICE=NPnCE+l 
120  CONTINUE 

50  CONTINUE 

C 

C  Mu.;:  have  at  least  two  particles  in  the  strip  for  spreading 
C 

IKNPTSTR.lt.  2)GOTO  500 
XBAR-XBAR/NPTSTR 
DO  60  1=1, NPTSTR 
J=NTRACK(I) 

RADIUS(I)=  REAL(PARTCL(J))-XBAR 
60  CONTINUE 

IKFLOAT(NPTICE)/FLOAT(NPTSTR).GT.0.5)ICOND=1 

c 

C  XLE  are  the  distances  to  the  spreading  edge  of  slick  in  the  strip 
C  computed  based  on  the  mean  distance  to  particles  from  strip  center. 

C  index-1  for  +  dir  from  XBAR  and  2  for  -  dir  from  XBAR 

C 

XLECD-0. 

XLE(2)=0. 

NPTX2)=0 

DO  80  1=1, NPTSTR 

EKRADIUS(I).GE.0.0)XLK  1  )=XLK  1  )+RADIUS(I) 

IKRADIUS(I).GE.O.OXjOTO  80 
XLK2)=XLK2)+RADIUS(I) 
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N  Fit  2  )=N  Fit  2  )+ 1 
SO  CONTINUE 

NPTCl)  =NPTSTR-NFIt2) 

XI-ECl)  =X[Ttl)/NFTtl) 

XLE(2)  =XLE(2)/NFlt2) 

IFCICOND.EQ.IXjOTO  170 

c 

C  If  slick  thickness(STHICK)  is  less  than  ultimate  thickness 
C  for  spreading(UTHICK)  then  no  spreading 
C  NOTE  that  XLE(2)  is  always  (-)ve 
C 

STHICK.  =  VOLPAR  *(NFTt  1  )+N  Fit  2))/(DX*(XLE(  1 )  -  XLE(2))) 

UTHICK  =  1.3458E-5  *  (VOLPAR*NMOVIN)**0.2S 
IK  STHICK.  LT.LTHICKXjOTO  500 

C 

C  determine  the  rate  of  spread  at  mean  radius(leading  edge) 

C 

DO  130  K-1,2 

VOLNOW  =  V  OLPAR  *  N  PT(K) 

TMBAR  «  TIMET  -  SPILDT/2.0 

C 

C  for  this  first  development  stage  use  VOLBAR=VOLNOW,  and  DVET=0. 
VOLBAR  =VOLNOW 

OVrJT  -  VOLNOW*(FEVP  1  -  FEVP2)/ SPILDT 

C 

C  TVISC  --  Time  in  secs  for  transition  from  Inertia  to  Viscous 

C  TSUR.FT--  Time  in  secs  for  transition  from  Viscous  to  Surf  Tension 

C  TERMIN'  --  Time  in  secs  for  spreading  termiation 
C  DRDT--  Spreading  rate  at  leading  edge  (ft/sec) 

C 

TSURET  =  LAKVISC/AKSURF)**2.6666*VOLBAR**1.3333 
IEtTLMBAR  .GT.TSURET)  GOTO  45 
TV1  SC=(AKVI  SC/AKINER)*  *  3 . 4  2  85  *VOLBAR  **0 . 5  7 1 4 
II-XTLMBAR.LE. TVISC)  DRDT  - 

$  0.3333  * AKINER  *(  2  +DVDT*TIMBAR  /VOLBAR  )*(VOLBAR/TIMBAR)*  *0.3333 
IltTLMBAR  .GT.TVISODRDT  - 

S  AKVISC*(0. 375+0. 5*nMBAR*DVDTArOLBAR)*SQRT(VOLBAR)/TIMBAR**0. 625 
GOTO  48 

45  DRDTT  =  0.75*AKSURF/(TLMBAR**0.25) 

48  SPRATE(K)  -  DRDfTSPILDT/ABS(XLE(K)) 

IFtSPRATEOO.I.T.  - 1 .0)SPRATFtK>=- 1 .0 
1 30  CONTINUE 

C 

C  Spreading  rates  for  mean  leading  edges  on  either  side  has  been 
C  computed.  Now  spread  the  particles  proportiontely. 

C 

!XJ  140  L-l  .NFI'S'i  K 
J=NTRACK(D 

I K  R  ADI  U  S(  1 )  .G  H  .0 . 0)X  N  EW=  RADIO  S(I)*(  SPRATEt  1 )+ 1 ) 
lHRADlU.S(l).LT.O.O)XNEW=RADIUS(l)*(SPRATE(2)+l) 

RADII.  SO)  =  XNLW 
Y  *  AJMAGfPARTCJiJ)) 

PAR  If  1.0 1  =  CMPLXf  XBA R  +XNEW, Y) 

14')  CONTINUE 
(  ' 
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C  Compute  the  mean  distances  to  leading  edges  after  spreading. 
C 

XLE(l)=0. 

XLE(2)=0. 

DO  160  I-l.NPTSTR 

IF(RADrUS(l).GE.O.O)XLH:i)=XLE(l)+RADIUS(l) 

IKRADIUS(I).LT.0.0)XLE(2)=XLEC2)+RADIUS(I) 

160  CONTINUE 

XLECl)  -XLE(l)/NFlXl) 

XLE(2)  =XIT(2)/NFIt2) 

SPAREA  =  SPAREA  +  DX*CXLE(l)+  ABS(XLE(2))) 

170  IF(INDPRN.EQ.l)WRITE(*,220)lSTRIP,NPTSTR,XLEC2),XBAR,XLECl) 
IFClCONDEQ.l)  SPAICE  =  SPAICE  +  DX*(XLE(l)+  ABS(XLE(2))) 
IFOCOND.EQ.  l)WRrTE(*  ,2  30) 

50C  CONTINUE 
C 

C  Move  back,  the  particles  in  the  Northern  channel  which  were 

C  shifted  by  ORIENT  routine.  Also  check  for  the  particles  hitting 

C  the  boundaries 
C 

DO  460  I=l,NMOVTN 
J-IMOVIN(I) 

IKYSHIFKD.LT.DXXjOTO  54 
PARTCU(J)=PARTCUJ)+CMPLX(0 . ,  YSHIFIXJ)) 
L»REAU(PARTCL(J))/DX  +  1 
M=A1MAG(PAJRTCL(J))/DX  +1 
C 

C  Check  for  spill  hitting  the  boundaries 

C 

IFXM.GT.IGRUB1(L)XjOTO  54 
NHrni=Nm'iB+-i 
EHITEl(NHrrB)=J 
X=REAL(PARTCL(J)) 

Y-IGRUB 1  (L)*DX  -  0 . 2  5  *DX 
PARI  aiJ)=CMPLX(X,Y) 

GOTO  460 

54  L  =  REAL(PARTCL(J))/DX  +  1 
M  -  AIMAG<  P  ARTClX  J ))/DX  +  1 
IFXM.GE.IGRILBCU.AND.M.LE.IGRIUBCOXjOTO  55 
NHITB  =  NIHTB  +  1 

niITB(NHITB)  >  J 
GOTO  460 

55  ffOGRURKU.EQ.OXJOTO  460 

IF(M.LE.IGRUEl(L).AND.M.GE.IGRLBlCL)X}OTO  58 
GOTO  460 

58  nhitb  =  nhitb+i 

nnTBCNurra)  =  j 

460  CONTINUE 

REIURN 

220  FORMAltI4,7X,I3,5X,F6.0(F9.0,F8.0) 

230  FORMAT!  1H+.50X,’  ICE’) 

END 
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SUbki,; ;  ONE  SPR  l )  1  Y(DX , S P  1‘JLD T, TIMET, INDPRN , SPAREA) 

COMBI  IX  S PCEN , PARTQX 1 000) 

COMMON  A/ASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /A  SB/ S PCEN , P  ARTCL ,  NPTCL,  NHITB, EH3TB(  1 000) ,TYPBND(4 ,300) 
COMMON  /BI XXX 7  / SPGOIL ,AN IU ,  SIGMA ,AK2 1 ,AK2  V ,AK2T, 

S  VOLPAR ,  vOI.PIE( 8), SLICKR(8) 

COMMON  /BLOCK 8 /AKC 1 0 ,AKC20,AKC30 

COMMON  /SO/1MOV1NC 1 000), YSHIFlXl OOO.NMOVTN.SSHEFT 

COMMON  /  SE/FEVP 1  ,FEVP2 ,  CEVP.TOEVP 

COMMON  /ICIi/NICEXl(20),NICEYl(20),NICEX2(20),NICEY2(20),NICERG, 

S  A'  m:O,ANlCL,IPOSl(20),IPOS2(20),SPAICE 
COMMON  /SPREAD/  RADIUSCl 000), NTRACK(  1000) 

DIMENSION  SPRATE(2),NPrlt2),XLE(2) 

C 

C  LAST  1)A IE  Or  REVISION  :  Apiil  !1,  1986 
C 

C  lino  Subroutine  handles  one  dimensional  spreading  in  Y-direction 
C  Ihe  spiii  area  is  divided  into  strips.  Particles  in  each  strip 
C  spieads  according  to  spreading  law  for  one -dimensional  case. 

C  (see  test  for  details) 

C  Input  :  . .  Spill  center 
C  ..  Location  of  each  particle 

C  ..  oil  properties 

C  U'itpiu:  ..  New  loaction  of  each  particle 
C 

C  Explanation  of  variables  used  only  in  this  subroutine 

C  RADICSU)  -  distance  to  particles  in  a  strip  from  stripcenter. 

C  A  maximum  of  500  particles  can  be  in  a  strip  at  any  time 

C  LMOWN(I)  Index  in  array  PARTCL  of  moving  particles 

C  ex.  1,3.4,5,7,11,12,13 .  etc. 

C  .’  .MOVIN'  Number  of  Moving  Particles 

C  SPAREA  t  ree  surface  area  of  spill  (sq.  ft) 

C  SPA  ICE  Area  of  spill  under  ice  (sq.  ft) 

C  JCOND  --  0  Oil  in  the  strip  has  free  surface  conditions 

C  -  i  Oil  in  the  strip  is  under  ice 

C 

J  A*.  i  A.  PI. k»AVAl',G/3. 141592,  1.92,  32.2/ 

C 

C  ;■  aluate  some  constants  to  be  used  in  subsequent  computations 

C 

DEL)  \  -  1  0  -  SPGOIL 

AKIM..;  -  AK(  10*(G*DEI.TA/DX)**0.3333 

A K \  IV  -  AKC20*(G*DH:iA)**0.25/(SQRT(DX)*ANIU**0.125) 

AKSERp  =-  AK(  :30*SQRltSIGM.A/ROWAT)/(ANIU**0.25) 
r 

C  i  v/.e  viiiie  later  computing,  determine  X-grid  boxes  of 

(.  e  x  ir p.i i  ■ ; .  i  es 

r 

i  MA.v  ■ 

I  '  1  i  N  - 1  •/<) 0 
i  -M  h II,.'  U )  •  i 
j  iMM'/L/D 

I  k  I  A  J/PA  R  l  (j  t  j  ij  i  ■  l 
ID!  fri.I.MAXjl  MAX  - 1 . 
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ifOl.lt.uhn)lmin=l 

40  CONTINUE 
SPAREA  =  0.0 
SPAICE  -  0.0 
C 

C  Loop  500  :  One  strip  at  a  time 
C 

DO  500  I STR IP=LMIN  ,LMAX 
YBAR=0. 

NPTSTR  =  0 
NPTICE  -  0 
ICOND  =  0 
DO  50  I-l.NMOVIN 
J=IMOVIN(l) 

l=real(partcl(j))/dx+i 
ef(istrip.ne.l)goto  50 

NPTSTR  =  NPTSTR+1 

NTRACKC  n  PTSTR )  -  J 

YEAR  =  YBAR+AMAG(PARTCL(J)) 

IKNICERG.EQ.OXJOTO  50 
L  -  R  EALX  P ARTCL.(  J  ))/DX 
M  =CAIMAG(PARTCL(J))+Y  SHIFIt  J))/DX 
IPOS  -  0 

IFCL.EQ.OXKJTO  117 
DO  115  L1=1,L 

IPOS  -  IFOS+IGRIUB(Ll)'IGRILBCLl)+3 
115  CONTINUE 

117  IPOS  =  IPOS+M-  IGRILBCL+l)+3 

DO  120  K=1,NICERG 

IF(lPOS.GE.IPOSl(K).AND.IPOS.LE.IPOS2(K))NPTICE=NPTCE+l 
120  CONTINUE 

50  CONTINUE 

C 

C  Must  h’.ve  at  least  two  particles  in  the  strip  for  spreading 
C 

lrtNPTSTR.LT.2)GOTO  500 
YEAR -YBAR/NPTSTR 
DO  60  I- 1, NPTSTR 
J-NTRACK(I) 

RADIUS(I)=  AIMAG(PARTCL(J))-YBAR 
60  CONTINUE 

df(fi  OAT(NPTICE)/FLOATCNPTSTR).GT.0.5)ICOND-1 
C 

C  XLE  are  the  distances  to  the  spreading  edge  of  slick  in  the  strip 

C  computed  based  on  the  mean  distance  to  particles  from  strip  center. 

C  index=l  for  +  dir  from  YEAR  and  2  for  -  dir  from  YEAR 
C 

XLE)Cl)=0. 

XLE(2)=0. 

NPT(2)=0 

DO  80  1=1. NPTSTR 

IKRADIUS(I)  .GE.0.0)XLE(  1  )=XLEC  1  )+RADIUS(l) 

iKradiusCD.ge.o.oXjoto  80 

XlUf  2  )=XLE(2)+R  ADIUS(I) 

NPTC2)=NFTX2)+1 
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80  CONTINUE 

NPT(l)  -NPTSTR - NPT(2) 

XLE(1)  -XLE(  1  )/NPT(  1 ) 

XLEC2)  =XLE(2)/NPTX2) 

IKICOND.EQ.IXjOTO  170 
C 

C  If  slick  thickness(STHICK)  is  less  than  ultimate  thickness 
C  for  spreading(UTHICK)  then  no  spreading 
C  NOTE  that  XLE(2)  is  always  (-)ve 
C 

STHICK  =  VOLPAR*(NPTa)+NPTC2MDX*(XLECl)-XLE(2))) 

UTH1CK  =  1.3458E-5  *  (VOLPAR*NMOVIN)**0.25 
IPX  STHICK .  LT .  UTHICKXjOTO  500 
C 

C  determine  the  rate  of  spread  at  mean  radius(leading  edge) 

C 

DO  130  K=l,2 

VOLNOW  -  VOLPAR*NPT(lO 

TIMBAR  =  TLV1E1'  -  SPILET/2.0 

C 

C  for  this  first  development  stage  use  VOLBAR=VOLNOW,  and  DVDT=0. 
VOLRAR=VOLNOW 

DVUr  -  VOLNOW*(FEVPl-FEVP2)/SPILDT 

C 

C  TVISC  --  Time  in  secs  for  transition  from  Inertia  to  Viscous 

C  TSURFT--  Time  in  secs  for  transition  from  Viscous  to  Surf  Tension 

C  TERMIN  --  Time  in  secs  for  spreading  termiation 
C  DRDT--  Spreading  rate  at  leading  edge  (ft/sec) 

C 

TSURFT  =  (AKVISC/AKSURF>*2.6666*VOLBAR**1.3333 
nXTIMBAR  .GT.TSURFT)  GOTO  45 
TV1SC=(AKVISC/AKINER)**3.4285*VOLBAR**0.5714 
IKTMBAR.LE.TVISC)  DRET  = 

$  0.3333  *AKINERK2+DVDT*TTMBAR ArOLBAR)*(VOLBAR/TlMBAR)**0 . 3333 

iKtimrar  .gt.tvtsc)drdt  = 

$  AKVISC*(0. 375+0. 5*TIMBAR*DVDTArOLBAR)*SQRT(VOLBAR)/TIMBAR**0. 625 
GOTO  48 

45  DRDT  =  0.75*AKSURF/(TIMBAR**0.25) 

48  SPRATE(K)  =  DRDT*SPILET/ABS(XLEOO) 

IF(SPRATH(K).LT.- 1 .0)SPRATE(K>- 1 .0 
130  CONTINUE 

C 

C  Spreading  rates  for  mean  leading  edges  on  either  side  has  been 
C  computed.  Now  spread  the  particles  proportiontely. 

C 

DO  140  T=l, NPTSTR 
J-NTRACK(F) 

iHradius(i).ge.o.o)ynew=radius(i)*(sprate(i)+i) 

EKRADrUS(I).LT.0.0)YNEW=RADrUS(I)*CSPRATE(2)+l) 

RADIUS(I)  -  YNEW 
X  -  REAIXPARTCLO)) 

PARTCUJ)  -  CMPLX(X, YEAR + YNEW) 

1 40  CONTINUE 
C 

C  Compute  the  mean  distances  to  leading  edges  after  spreading. 
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C 

XLE(l)-0. 

XLEX2V0. 

DO  160  I=1,NPTSTR 

IF(RADnJ  S(l)  .GE.  0 . 0)XLE(  1  )=XLE(  1  )+RADIU  S(l) 

IF(RADIU  S(I)  .LT.  0 . 0)XLE(2)=XLE(2)+RADIUS(l) 

160  CONTINUE 

xleCi)  =xleO)/npt(i) 

XLEC2)  =XLEC2)/NPT(2) 

SPAREA  =  SPAREA  +  DX*(XLE(l>+  ABS(XLE(2))) 

170  DF(INDPRN.EQ.l)WRrTE(*,220)lSTRIP,NPTSTR)XLE(2),YBAR1XLE(l) 
IKICOND.EQ.  l)  SPAICE  -  SPAICE  +  DX*(XLE(l)+  ABS(XLE(2))) 
IKICOND.EQ.  l)WR]TK*,230) 

500  CONTINUE 
C 

C  Move  back  the  particles  in  the  Northern  channel  which  were 

C  shifted  by  ORIENT  routine.  Also  check  for  the  particles  hitting 

C  the  boundaries 
C 

DO  460  I-l.NMOVIN 
J-IMOVIN(I) 

lKYSHIFTCJ).LT.DXXKDTO  54 

partclC  j  )=  partclC  j)+cmplx(o  . ,  yshttO)) 

L“REAL(PARTCL(J))/DX  +  1 
M= AIM  AG(  PARTCLC  J  ))/DX  +1 
C 

C  Check  for  spill  hitting  the  boundaries 

C 

IF(M.GT.IGRUBlCL)XlOTO  54 
NHrrB=NHITB+ 1 

ihitdC  nhitb)=j 
x=realCpartcl(j)) 

Y=IGRUB1(L)*LX  0.25*DX 

partclC  j  )=cmplx(  x  ,  y) 

GOTO  460 

54  L  =  REAL(PARTCL(J))/DX  +  1 
M  =  AIMAG(PARTCL(J))/DX  +  1 
IF(M.GE.IGRILB(L).AND.M.LE.IGRIUB(L)XK)TO  55 
NH3TB  =  NHITB  +  1 

IHITB(NHITB)  -  J 
GOTO  460 

55  IHIGRUBICLXEQ.OXjOTO  460 

EF(M.LE.IGRUBia).AND.M.GE.IGRLBlCL)XJOTO  58 
GOTO  460 

58  NHITB  -  NHITB+1 

inrra' NHITB)  =  J 
460  CONTINUE 

RETURN 

220  FORMATXI4,7X,I3,5X,F6.0,F9.0,F8.0) 

230  FORMATdH+,50X,’  ICE') 

END 
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subroutine  VELDIS 


SUBROUTINE  VEUDIS(lPROPT,NBRNCH,NGRIDX,DX) 

This  program  computes  the  Velocity  along  and  across  the  river 
(Two-Dimensional  velocity  distribution) 

Last  Date  of  Revision:  Jul  17,  1985 

COMPLEX  COMPXY,VSTRM(99,16),CORDV(99, 16),VCAR(l2000),CORDLB(99) 
COMPLEX  VWIND.VDRIFT 

COMMON  /VEL/VSTRM,CORDV,CORDLB,Q(30),WL(30),TICE(99,20), 

$  YWED(99,20),Z(99,20),ZD(99),NSLSCr(99),SCrANG(99), 

$  LCSTSQ(30),NSTUBE(99),NUMCON(99),NFIRCO(99),NSECO(99),KINTM 
COMMON  /VA/  VCAR  .VWIND.VDRIFT 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLB1(300),IGRUB1(300) 
COMMON  /V/IZRBX(lOO),IZRBY(lOO),NZRVB 

Input  :  Q  &  WL  both  of  which  are  arrays  of  size  at  least  NBRNCH 
and  NBRNCH+1  respec. 

Output  :  x  &  y  components  of  velocity  in  the  river  for  each  grid  box 
Also  computed  are  velocities  at  sections  perpendicular  to 
stream  thalweg  and  co-ordinates  of  the  position  at  which 
they  are  acting 

This  program  computes  velocities  in  the  following  manner 

1  Go  from  branch  to  branch  -  (Branch  here  refers  to  branches  in 
Unsteady  flow  model 

2  Then  do  for  each  section  in  a  branch 

3  Finally  scans  across  the  river,  stremtube  by  tube 

The  above  numbers  also  show  the  looping  sequence  where  1  is  the 
outermost  and  3  is  the  innermost 


IS2=0 

DO  80  EB=1, NBRNCH 
IS1-IS2+1 
IS2»LCSTSQ(IB) 

TORI  JEN  =0. 

DO  30  IS-IS1.IS2 
ISCON  -  NFIRCOOS) 

TORLEN=TORLEN+CABS(CORDLBUS)  -  CORDLBUSCON)) 
30  CONTINUE 

ff(EB.EQ.NBRNCH)IS2=IS2+l 

SCILEN-0. 

DO  80  io=ISl,IS2 
QSTUbE=Q(IB)/NSTUBE(lS) 

ATUBE1-0. 

YSTO1  -  0. 

ISCON  -  NFIRCOOS) 

SCTLEN-SCILEN+CABS(CORDLB(lS)-CORDLB(lSCON)) 
IBCON  -  IB+1 

IKNUMCON(IS2).NE.21)GOTO  38 
IF(NSECO(IS2).EQ.999)GOTO  38 
36  IBCON  -  EBCON+1 

LASTSC  -  LCSTSQdBCON-1) 
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IF(NUMCON(LASTSC).NE. 2 1 XJOTO  36 
38  ffdS2  .EQ.NFIRCO(IS2  - 1).AND.(IS2  -  l).EQ.NFIRCO(lS2))IBCON-IB 

WLSCT=WL(IB)  -  CwUIB)  -\VUlBCON))*SCILEN/TBRLEN 
SARIY=0. 

NIY-NSLSCldS)+l 
SXAREA  -  0. 

DO  40  IY-2.NIY 

c  WRrTE(*I*)lY>YWID(lS,IY)(\WID(lS,rY-l) 

DYRS=YWID(IS,1Y)- YwnXis.rY- 1) 

PERI-SQRT(DYRS**2  +  (ZCIS,IY)-Z(IS,IY-1))**2) 

ICEIND-0 

ff(TICEdS,IY).GT.0.001.AND.TICEdS,rY-l).GT.0.00l)lCElNI>-l 
TISUM  -  TlCEClS,IY)+TICE(IS,IY- 1) 
ffOCEIND.EQ  l)PERI=PERI+DYRS 
ffOCEIND ,  EQ.0)TISUM«0.0 

AIY=D  YRS  *((Z(IS  ,IY)+Z(IS ,  IY  - 1)- TISUM)/2 . +WLSCT- ZD(IS)) 

ff(AIY.LT.0.0)AIY  -  0.0 

HR-AIY/PERI 

SARIY=SARIY+AIY*HR**0 . 6666 
SXAREA  -  SXAREA  +  AIY 

40  continue 

NSTUB1  -  NSTUBE(IS)-1 
DO  70  ITB=1,NSTUB1 
QSET=QSTUBE*ITB 
PSARIY-O. 

SPERi  =0. 

SAIY  =0. 

DO  60  IY=2,NIY 

DYRS=YWID(IS,IY)- YWHXIS.IY- 1) 

PERI=-SQRT(DYRS**2  +  (Z(IS,IY)-Z(IS,IY-1))**2) 

ICEIND=0 

IF(TICEaS,IY).GT.0.001  .AND.TICECIS.IY- 1).GT.0.001)ICEIND=1 
TISUM  -  TICEdS,IY)+TICEdS,rY- 1) 
ffdCT.IND.EQ.  DPERI-PERI+DYRS 
ffOCEIND.EQ.0)TISUM-0.0 

MY  =DYRS*((ZXlS,IY)+Z(lS)IY-l)-TISUM)/2.  +  WLSCT  -  ZD(IS)) 

IF(AIY.LT.0.0)AIY  -  0.0 

HR  -  AIY/PERI 

ARIY=AIY*HR**0.6666 

PSARIY-  PSARIY  +  ARIY 

SPERI  »  SPERI  +  PERI 

SAIY  =  SAIY  +  AIY 

QIY  -  Q(IB)*PSARIY/SARIY 

IKQIY.LT.QSETXjOTO  60 

QIY1  -  Q(IB)*(PSARIY-ARIY)/SARIY 

YSTB2  -  YWID(lS,IY-l)+DYRS*(QSET-QIYl)/(QIY-QIYl) 

YSTB  -  (YSTBl+YSTB2)/2. 

YSTB1  =  YSTB2 

ATUBE  -  SAIY  -  AIY+AIY*(  YSTB2  -  YWIlXlS  ,IY  - 1  ))/DYRS 
VSTRMCIS.ITB)  -  CMPLX(QSTUBE  CATUBE-ATUBEl),0.) 

ATUBE  1  -  ATUBE 
ANGL=  SCTANGdS) 

CORDVdS,ITB)=CORDUKlS)+CMPLX(YSTB*COS(ANGL)(YSTB*SIN(ANGL)) 
GOTO  65 

60  CONTINUE 
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65  CONTINUE 

70  CONTINUE 

NSTB-NSTUBE(IS) 

V  STRM(  I S ,  N  STB)-CMPLX(Q  STUBE/C  S  XAREA  -  ATUBE 1 ) ,  0 . ) 

YSTB  -  (YWID(lS,NIY)+YSTBl)/2. 

cordvus,nstb)«cordlb(is)+cmplx(ystb*cos(angl),ystb*sin(angl)) 

80  CONTINUE 

c 

C  At  this  point  2-D  stream  velocity  (Along  the  river  section  by  section 
C  and  across  the  river  streamtube  by  streamtube)  is  assigned  to 

C  VSTRM’s  x-component.  Therefore  it  has  the  corrt  <t  magnitude  but  not 

C  the  direction.  Later  cius  magnitude  will  be  correctly  distributed 
C  x  &  y  components  so  that  it  has  correct  direction. 

C  CORDV  stores  the  location  at  which  VSTRM  is  acting 

C  Note  :  CORDV  and  VSTRM  both  are  2-D  COMPLEX  arrays 

C 

C  Now  assign  the  correct  direction  to  velocities 
IS2-LCSTSQ(NBRNCH) 

DO  100  IS=1,IS2 
NSTB  -  NSTUBECIS) 

DO  100  ITB=1,NSTB 
NFIRST-NFIRCOOS) 

ISCON  -NFIRST 

IFdTB.GT.  NSTUBE(NFIRST))lSCON=NSECO(lS) 

ITBCON-rrB 

lKNUMCON(IS).EQ.ll)GOTO  97 

IF(NUMCON(lS).EQ.  1 2  .AND.ITB.GT.NSTUBE(NFIRST))lTBCON= 

$  ]TB-NSTUBE(NFIRST) 

IF(NUMCON(IS).NE.21XjOTO  97 
IKNSEC0(IS).NE.999)G0T0  97 
DO  93  I  -1,999 
J  -  IS  -I 

IHNSECO(J).NE.O)GOTO  95 
93  CONTINUE 

95  ITBCON  -  ITB  +  NSTUBE(J-l) 

97  VMAG=REALCVSTRM(IS,ITB)) 

COMPXY  -  CORDVasCON,rTBCON)-CORDV(IS,rrB) 

RAD  -  CABS(COMPXY) 

WX  -  VMAG*REAL(COMPXY)/RAD 
WY  -  VMAG*AIMAG{ COMPXY) /RAD 
VSTRMOS.ITB)  -  CMPLX(WX.WY) 

100  CONTINUE 
C 

C  The  next  segment  writes  velocities  and  co-ords  to  a  file  if  IPROPT=l 
C  This  information  can  be  used  by  program  DIRPLOT  to  plot  velocities 
C 

IKIPROPT.EQ.GXjOTO  415 
DO  110  IS-1.IS2 
NSTB  -  NSTUBECIS) 

DO  110  ITB=1,NSTB 

WRITEC3,2100)CORDV(IS.ITB),VSTRM(IS,ITB) 

110  CONTINUE 

C 

C  From  the  velocities  computed  at  stream  cross  sections  now  assign  the 

C  velocities  to  each  grid  center  in  the  Cartesian  System 
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C  First  assign  the  velocity  to  a  grid  box  if  co-ords  are  within  the  box 
C 

415  DO  120  IS  =1,IS2 

NSTB  =  NSTUBECIS) 

DO  120  TIE  -  l.NSTB 

L  -  REALCCORDVdS,ITB))/DX 
M  -AIMAG(CORDV(lS,ITB))/DX 
IPOS  -  0 

IF(L. HQ. OXKJTO  117 
DO  115  Ll-l.L 

IPOS  =  IPOS+IGRIUBCLl)-IGRILB(Ll)+3 
115  CONTINUE 

117  IPOS  =  IPOS+M-IGRELB(L+l)+3 

VMAG  =  CABS(VCAR(IP0S)) 

IKVMAG.LE.O.OOI)VCAR(IPOS)  =  VSTRM(IS,ITB) 
iKVMAG.GT.  0 . 00 1  )VCARdPOS)  =  (VCARdPOS)+VSTRM(lS,rTB))/2. 
120  CONTINUE 
C 

C  Now  check  for  the  boxes  with  no  assigned  velocity  yet; 

C  For  KINTM  intermediate  Sections  interpolate  in  Streamtube  between 
C  Two  adjacent  X-scetions  and  assign  a  weighted  mean  velocity 
C 

DO  130  !S=1,IS2 
NSTB  =  NSTUBECIS) 

DO  130  ITB  -  l.NSTB 
NFIRST=NFIRCO(lS) 

ISCON  -NFIRST 

IF(ITB.GT.NSTUBECNFIRST))ISC0N=NSEC0(IS) 

ITBCON-ITB 

EKNUMCON(lS).EQ.  1  l)GOTO  197 

lKNUMCONdS).EQ.12.AND.ITB.GT.NSTUBE(NFIRST))rrBCON= 

S  ITB-NSTUBE(NFIRST) 

JKNUMCON(IS).NE.21)GOTO  197 
ff(NSECOOS).NE.999)GOTO  197 
DO  193  I  =1,999 
J  =  IS  -I 

IF(NSECO(J).NE.O)GOTO  195 
193  CONTINUE 

195  ITBCON  =  ITB  +  NSTUBE(J-l) 

197  CONTINUE 

DO  130  K-l, KINTM 

COMPXY-  ((KINTM+1  -K)*CORDV(IS,ITB)+K*CORDV(lSCON, ITBCON)) 

$  /(kintm+i) 

L  =  REALCCOMPXY  )/dx 
M  =AIMAG(COMPXY)/DX 
IPOS  =  0 

IF(L.EQ.O)GOTO  127 
DO  125  Ll-l.L 

IPOS  =  IPOS+IGRIUB(Ll)-IGRILB(Ll)+3 
125  CONTINUE 

127  IPOS  =  IPOS+M-IGRILB(L+l)+3 

VMAG  =  CABSCVCAR(IPOS)) 

IK  VMAG  .LE. 0.001  )VCAR(IP0S)= 

S  (CKINTM+1  -  K  )  *V  S'FRMC  I S ,  ITB)+K  *  V  STRM(  I S  CO  N ,  ITBCO  N )) /(KJNTM+ 1 ) 

130  CONTINUE 
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C 

C  There  may  still  be  boxes  without  any  assigned  velocities 
C  Now  velocities  will  be  assigned  based  on  the  average  value  of  the 
C  surrounding  boxes 

C  Start  from  column  2  and  then  move  to  subsequent  ones.  The  first 
C  column  is  neglected.  Before  the  process  begins  a  value  of  0.0011  is 

C  assigned  to  the  grids  just  outside  the  boundary  (a  technique  used 

C  purely  to  simplify  computations). 

C 

IY1-1 

DO  133  I=1,NGRIDX 

IY2-IORIUB(  I)  -  IGRILB(l)+2+IY  1 
VCAR(IY1)=0.001 1 
VCAR(IY2)=0.0011 
IY1  -  IY2+1 
133  CONTINUE 

IY2  -  IGRIUB(l)-  IGRILB(l>+2 
DO  150  L-2.NGRIDX 
IY1  -  IY2+3 

IY2  -  IGRIUBCL)  -  IGRDLB(L)+IY1 
DO  150  M  =  IY1.IY2 
COMPXY  =  (0.,0.) 

COUNT  -  0. 

IROW  -  M  -  IY 1 +IG  RILB(L) 
lKlGRLBlCU.EQ.OXKJTO  141 

IKIROW.GE.IGRLB1(L).AND.IROW.LE.IGRUB1(L))VCAR(M)=0.0011 

141  IF(CABS(VCARCM)).GT.O.OOl)GOTO  150 
C 

C  IK(IGRIL^L-1)-IGRILB(L)).GT.2)G0T0  142 

C  IF((IGRIUB(L)- IGRIUBCL- 1)).GT.2)G0T0  142 

IF((IGRILB(L-l)-IROW).GT.2)GOTO  142 
IF((IR0W-  IGRIUBCL-  l)).GT.2)GOTO  142 
C 

MM  =  M+IGRILB(L)-IGRIUBCL-1)  -  3 
lKCABS(VCAR(MM)).I^.O.OOl)GOTO  142 
COMPXY-COMPXY+VCAR(MM) 

COUNT  -  COUNT+1 

142  MM  -  M+IGRIUB(L)-IGRILBCL+l)+3 
C 

C  IF((lGRILB(L+l)-IGRILB(L)).GT.2)GOTO  144 

C  lK(lGRIUB(L)-IGRIUBCL+l)).GT.2)GOrrO  144 

IF((IGRIUBCL+1)-IROW).GT.2)GOTO  144 
IF((IROW-IGRIUBa+l)).GT.2)GOTO  144 
C 

IKCABS(VCARCMM)).LE.0.001)GOTO  144 
COMPXY=COMPXY+VCAR(MM) 

COUNT  -  COUNT+1 

144  IF(CABS(VCAR.(M-  l)).LE.O.OOl)GOTO  146 

COMPXY =COMPXY +VCAR(M  - 1) 

COUNT  =  COUNT+1 

146  IF(CABS(VCAR(M+l)).LE.O.OOlXJOTO  148 

COMPX  Y=COMPX  Y + VCAR(M+ 1 ) 

COUNT  -  COUNT+1 
1 18  VCAR(M)=COMPXY/COUNT 

150  CONTINUE 
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C  For  the  boxes  defined  thru  input  data  set  VCAR=0.0 
C 

DO  164  IBOX-l.NZRVB 

iKNZRVB.GT.  1  OOXjOTO  164 
L  -  IZRBX(IBOX)  -  1 
M  -  IZRBY(EBOX)  -  1 
IPOS  =  0 

[F(L.EQ.OXjOTO  163 
DO  160  L1=1,L 

IPOS  -  IPOS+IGRIUB(Ll)-IGRILB(Ll)+3 
160  CONTINUE 

163  IPOS  =  IPOS+M-IGRILBCL+l)+3 
VCAR(IPOS)  =  0.0 

164  CONTINUE 
IF(IPROPT.EQ.O)RETURN 
Jl=2 

DO  170  I=1,NGRIDX 
X  =  I*DX  -  0.5*DX 
J2  -  IGRIUBCI)  -  IGRILB(I)+J1 
DO  165  J=J1,J2 

Y  -  (lGRILB(l)+J-Jl)*DX-0.5*DX 
WRITE(4 , 2 1 00)X,  Y,VCAR(J) 

165  COimNUE 
J1 -J2+3 

170  CONTINUE 
R  El  URN 

123  FCRI»1AT(3I5,3F8.2,2F10.0) 

2100  FORMA1X2F9.0,2F7.2) 

END 
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SUBROUTINE  GAUSS(IX,S,AM,V) 
A-0.0 

DO  50  1-1,12 
CALL  RANDU(IX,IY(Y) 

DC-IY 

50  A=A+Y 

V=(A-6.0)*S+AM 

RETURN 

END 


SUBROUTINE  RANDU(IX,IY,YFL) 

IY  -  D065539 

IF(IY)5,6,6 

5  IY  -  IY  +  2147483647+1 

6  YFL  -  IY 

YFL  -  YFL*0.46566l3E-9 
YFL»RND(-1) 

RETURN 

END 
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DIGITIZED  GRID  SYSTEMS  FOR  CONNECTING  CHANNELS 
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St .  Clair  River 


Index  Map  for  Grid  System  in  St.  Clair  River 
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